BBS in a Box 7

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Tele / R / RRPHelp.cpt / Fix RR 9.4 -> 10.3 < prev next >
MacBinary | 1987-11-09 | 21.9 KB | [TEXT/MEDT]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Fix RR 9.4 -> 10.3
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Sun Nov 8 20:14:07 1987, modified Sun Nov 8 20:14:07 1987, creator 'MEDT', type ASCII, 20050 bytes "Fix RR 9.4 -> 10.3" , at 0x4ed2 2152 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MEDT]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 12 46 69 78 20 52 52 | 20 39 2e 34 20 2d 3e 20 |..Fix RR| 9.4 -> |
|00000010| 31 30 2e 33 00 00 00 00 | 00 00 00 00 00 00 00 00 |10.3....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 45 44 | 54 00 00 00 00 00 00 00 |.TEXTMED|T.......|
|00000050| 00 00 00 00 00 4e 52 00 | 00 08 68 9d ba c7 5f 9d |.....NR.|..h..._.|
|00000060| ba c7 5f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.._.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 36 1a 00 00 |........|....6...|
|00000080| 28 28 21 0d 28 7c 52 4f | 55 54 49 4e 45 3a 09 46 |((!.(|RO|UTINE:.F|
|00000090| 69 78 20 52 52 20 39 2e | 34 20 2d 3e 20 31 30 2e |ix RR 9.|4 -> 10.|
|000000a0| 33 0d 28 0d 28 20 50 55 | 52 50 4f 53 45 3a 09 41 |3.(.( PU|RPOSE:.A|
|000000b0| 74 74 65 6d 70 74 73 20 | 74 6f 20 61 75 74 6f 6d |ttempts |to autom|
|000000c0| 61 74 69 63 61 6c 6c 79 | 20 63 6f 6e 76 65 72 74 |atically| convert|
|000000d0| 20 52 65 64 20 52 79 64 | 65 72 20 70 72 6f 63 65 | Red Ryd|er proce|
|000000e0| 64 75 72 65 73 20 63 72 | 65 61 74 65 64 0d 28 7c |dures cr|eated.(||
|000000f0| 09 09 66 6f 72 20 39 2e | 58 20 74 6f 20 74 68 65 |..for 9.|X to the|
|00000100| 20 6e 65 77 20 31 30 2e | 33 20 73 79 6e 74 61 78 | new 10.|3 syntax|
|00000110| 2e 20 20 53 70 65 63 69 | 66 69 63 61 6c 6c 79 20 |.  Speci|fically |
|00000120| 64 6f 65 73 20 74 68 65 | 0d 28 09 09 66 6f 6c 6c |does the|.(..foll|
|00000130| 6f 77 69 6e 67 3a 0d 28 | 0d 28 09 09 20 31 2e 20 |owing:.(|.(.. 1. |
|00000140| 53 61 76 65 73 20 6f 72 | 69 67 69 6e 61 6c 20 66 |Saves or|iginal f|
|00000150| 69 6c 65 20 77 69 74 68 | 20 2e 4f 4c 44 20 65 78 |ile with| .OLD ex|
|00000160| 74 65 6e 73 69 6f 6e 20 | 74 6f 20 66 69 6c 65 20 |tension |to file |
|00000170| 6e 61 6d 65 0d 28 09 09 | 20 32 2e 20 43 6f 6e 76 |name.(..| 2. Conv|
|00000180| 65 72 74 73 20 61 6c 6c | 20 63 6f 6d 6d 65 6e 74 |erts all| comment|
|00000190| 73 20 74 6f 20 6c 61 62 | 65 6c 73 20 28 73 69 6d |s to lab|els (sim|
|000001a0| 70 6c 69 73 74 69 63 20 | 62 75 74 20 65 66 66 65 |plistic |but effe|
|000001b0| 63 74 69 76 65 29 0d 28 | 09 09 20 20 20 20 65 78 |ctive).(|..    ex|
|000001c0| 63 65 70 74 20 74 68 6f | 73 65 20 65 78 63 65 65 |cept tho|se excee|
|000001d0| 64 69 6e 67 20 32 30 20 | 6f 72 20 32 35 35 20 63 |ding 20 |or 255 c|
|000001e0| 68 61 72 73 20 69 6e 20 | 6c 65 6e 67 74 68 20 28 |hars in |length (|
|000001f0| 75 73 65 72 0d 28 09 09 | 20 20 20 20 6f 70 74 69 |user.(..|    opti|
|00000200| 6f 6e 29 0d 28 09 09 20 | 33 2e 20 45 53 43 20 62 |on).(.. |3. ESC b|
|00000210| 65 63 6f 6d 65 73 20 41 | 4c 54 0d 28 09 09 20 34 |ecomes A|LT.(.. 4|
|00000220| 2e 20 44 45 4c 20 62 65 | 63 6f 6d 65 73 20 44 45 |. DEL be|comes DE|
|00000230| 4c 4b 45 59 0d 28 09 09 | 20 35 2e 20 4d 45 4e 55 |LKEY.(..| 5. MENU|
|00000240| 44 4f 45 53 20 72 65 66 | 6f 72 6d 61 74 74 65 64 |DOES ref|ormatted|
|00000250| 20 62 75 74 20 6c 65 66 | 74 20 69 6e 63 6f 6d 70 | but lef|t incomp|
|00000260| 6c 65 74 65 20 28 73 6f | 72 72 79 29 0d 28 09 09 |lete (so|rry).(..|
|00000270| 20 36 2e 20 4d 45 4e 55 | 20 4f 46 46 20 62 65 63 | 6. MENU| OFF bec|
|00000280| 6f 6d 65 73 20 4d 45 4e | 55 4f 46 46 0d 28 09 09 |omes MEN|UOFF.(..|
|00000290| 20 37 2e 20 53 43 52 45 | 45 4e 43 4f 50 59 20 62 | 7. SCRE|ENCOPY b|
|000002a0| 65 63 6f 6d 65 73 20 53 | 43 52 45 45 4e 50 52 49 |ecomes S|CREENPRI|
|000002b0| 4e 54 0d 28 09 09 20 38 | 2e 20 43 55 52 53 4f 52 |NT.(.. 8|. CURSOR|
|000002c0| 20 48 20 62 65 63 6f 6d | 65 73 20 57 41 54 43 48 | H becom|es WATCH|
|000002d0| 20 4f 4e 0d 28 09 09 20 | 39 2e 20 43 55 52 53 4f | ON.(.. |9. CURSO|
|000002e0| 52 20 41 20 62 65 63 6f | 6d 65 73 20 57 41 54 43 |R A beco|mes WATC|
|000002f0| 48 20 4f 46 46 0d 28 09 | 09 31 30 2e 20 54 45 53 |H OFF.(.|.10. TES|
|00000300| 54 20 3c 6e 75 6d 5f 76 | 61 72 3e 3c 6e 75 6d 5f |T <num_v|ar><num_|
|00000310| 74 65 73 74 5f 6f 70 3e | 3c 73 74 72 5f 76 61 72 |test_op>|<str_var|
|00000320| 3e 0d 28 09 09 20 20 20 | 20 62 65 63 6f 6d 65 73 |>.(..   | becomes|
|00000330| 20 54 45 53 54 20 3c 6e | 75 6d 5f 76 61 72 3e 2c | TEST <n|um_var>,|
|00000340| 3c 6e 75 6d 5f 74 65 73 | 74 5f 6f 70 3e 2c 3c 73 |<num_tes|t_op>,<s|
|00000350| 74 72 5f 76 61 72 3e 0d | 28 09 09 31 31 2e 20 4c |tr_var>.|(..11. L|
|00000360| 45 54 20 45 51 55 41 4c | 20 3c 6e 75 6d 5f 76 61 |ET EQUAL| <num_va|
|00000370| 72 3e 2c 3c 73 74 72 5f | 76 61 72 3e 0d 28 09 09 |r>,<str_|var>.(..|
|00000380| 20 20 20 20 62 65 63 6f | 6d 65 73 20 53 54 52 49 |    beco|mes STRI|
|00000390| 4e 47 54 4f 4e 55 4d 20 | 3c 73 74 72 5f 76 61 72 |NGTONUM |<str_var|
|000003a0| 3e 2c 3c 6e 75 6d 5f 76 | 61 72 3e 0d 28 09 09 31 |>,<num_v|ar>.(..1|
|000003b0| 32 2e 20 43 4f 50 59 49 | 4e 54 4f 20 3c 73 74 72 |2. COPYI|NTO <str|
|000003c0| 5f 76 61 72 3e 2c 3c 6e | 75 6d 5f 76 61 72 3e 0d |_var>,<n|um_var>.|
|000003d0| 28 09 09 20 20 20 20 62 | 65 63 6f 6d 65 73 20 4e |(..    b|ecomes N|
|000003e0| 55 4d 54 4f 53 54 52 49 | 4e 47 20 3c 6e 75 6d 5f |UMTOSTRI|NG <num_|
|000003f0| 76 61 72 3e 2c 3c 73 74 | 72 5f 76 61 72 3e 0d 28 |var>,<st|r_var>.(|
|00000400| 09 09 31 33 2e 20 41 44 | 44 20 3c 6e 75 6d 5f 76 |..13. AD|D <num_v|
|00000410| 61 72 3e 2c 3c 73 74 72 | 5f 76 61 72 3e 0d 28 09 |ar>,<str|_var>.(.|
|00000420| 09 20 20 20 20 62 65 63 | 6f 6d 65 73 20 53 54 52 |.    bec|omes STR|
|00000430| 49 4e 47 54 4f 4e 55 4d | 20 3c 73 74 72 5f 76 61 |INGTONUM| <str_va|
|00000440| 72 3e 2c 4e 25 0d 28 09 | 09 20 20 20 20 66 6f 6c |r>,N%.(.|.    fol|
|00000450| 6c 6f 77 65 64 20 62 79 | 20 41 44 44 20 3c 6e 75 |lowed by| ADD <nu|
|00000460| 6d 5f 76 61 72 3e 2c 4e | 25 0d 28 09 09 31 34 2e |m_var>,N|%.(..14.|
|00000470| 20 53 55 42 54 52 41 43 | 54 20 3c 6e 75 6d 5f 76 | SUBTRAC|T <num_v|
|00000480| 61 72 3e 2c 3c 73 74 72 | 5f 76 61 72 3e 0d 28 09 |ar>,<str|_var>.(.|
|00000490| 09 20 20 20 20 62 65 63 | 6f 6d 65 73 20 53 54 52 |.    bec|omes STR|
|000004a0| 49 4e 47 54 4f 4e 55 4d | 20 3c 73 74 72 5f 76 61 |INGTONUM| <str_va|
|000004b0| 72 3e 2c 4e 25 0d 28 09 | 09 20 20 20 20 66 6f 6c |r>,N%.(.|.    fol|
|000004c0| 6c 6f 77 65 64 20 62 79 | 20 53 55 42 54 52 41 43 |lowed by| SUBTRAC|
|000004d0| 54 20 3c 6e 75 6d 5f 76 | 61 72 3e 2c 4e 25 0d 28 |T <num_v|ar>,N%.(|
|000004e0| 09 09 31 35 2e 20 54 45 | 53 54 20 3c 6e 75 6d 5f |..15. TE|ST <num_|
|000004f0| 76 61 72 3e 2c 3c 6e 75 | 6d 5f 74 65 73 74 5f 6f |var>,<nu|m_test_o|
|00000500| 70 3e 2c 3c 73 74 72 5f | 76 61 72 3e 20 66 72 6f |p>,<str_|var> fro|
|00000510| 6d 20 23 31 30 20 61 62 | 6f 76 65 0d 28 09 09 20 |m #10 ab|ove.(.. |
|00000520| 20 20 20 62 65 63 6f 6d | 65 73 20 53 54 52 49 4e |   becom|es STRIN|
|00000530| 47 54 4f 4e 55 4d 20 3c | 73 74 72 5f 76 61 72 3e |GTONUM <|str_var>|
|00000540| 2c 4e 25 0d 28 09 09 20 | 20 20 20 66 6f 6c 6c 6f |,N%.(.. |   follo|
|00000550| 77 65 64 20 62 79 20 54 | 45 53 54 20 3c 6e 75 6d |wed by T|EST <num|
|00000560| 5f 76 61 72 3e 2c 3c 6e | 75 6d 5f 74 65 73 74 5f |_var>,<n|um_test_|
|00000570| 6f 70 3e 2c 4e 25 0d 28 | 09 09 31 36 2e 20 50 41 |op>,N%.(|..16. PA|
|00000580| 55 53 45 20 77 69 74 68 | 20 6e 6f 20 70 61 72 61 |USE with| no para|
|00000590| 6d 65 74 65 72 73 20 62 | 65 63 6f 6d 65 73 20 50 |meters b|ecomes P|
|000005a0| 41 55 53 45 20 36 30 0d | 28 09 09 31 37 2e 20 43 |AUSE 60.|(..17. C|
|000005b0| 6f 6e 76 65 72 74 73 20 | 61 6c 6c 20 76 61 72 69 |onverts |all vari|
|000005c0| 61 62 6c 65 73 20 74 6f | 20 6e 65 77 20 73 74 79 |ables to| new sty|
|000005d0| 6c 65 20 28 65 2e 67 2e | 20 7e 39 20 62 65 63 6f |le (e.g.| ~9 beco|
|000005e0| 6d 65 73 20 5a 24 29 0d | 28 09 09 31 38 2e 20 43 |mes Z$).|(..18. C|
|000005f0| 6f 6d 70 69 6c 65 73 20 | 72 65 73 75 6c 74 20 75 |ompiles |result u|
|00000600| 6e 6c 65 73 73 20 70 72 | 6f 62 6c 65 6d 20 23 35 |nless pr|oblem #5|
|00000610| 20 61 62 6f 76 65 20 65 | 6e 63 6f 75 6e 74 65 72 | above e|ncounter|
|00000620| 64 0d 28 0d 28 20 50 52 | 4f 42 4c 45 4d 53 3a 09 |d.(.( PR|OBLEMS:.|
|00000630| 54 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 61 72 |The foll|owing ar|
|00000640| 65 20 6b 6e 6f 77 6e 20 | 6c 69 6d 69 74 61 74 69 |e known |limitati|
|00000650| 6f 6e 73 20 6f 66 20 74 | 68 69 73 20 70 72 6f 63 |ons of t|his proc|
|00000660| 65 64 75 72 65 3a 0d 28 | 0d 28 7c 09 09 20 31 2e |edure:.(|.(|.. 1.|
|00000670| 20 43 6f 6e 76 65 72 74 | 69 6e 67 20 23 31 33 2c | Convert|ing #13,|
|00000680| 20 23 31 34 20 6f 72 20 | 23 31 35 20 61 62 6f 76 | #14 or |#15 abov|
|00000690| 65 20 69 66 20 70 61 72 | 74 20 6f 66 20 4f 4e 50 |e if par|t of ONP|
|000006a0| 41 4e 49 43 20 6f 72 20 | 0d 28 7c 09 09 20 20 20 |ANIC or |.(|..   |
|000006b0| 20 41 4c 45 52 54 20 77 | 69 6c 6c 20 6e 6f 74 20 | ALERT w|ill not |
|000006c0| 77 6f 72 6b 20 70 72 6f | 70 65 72 6c 79 2e 2e 2e |work pro|perly...|
|000006d0| 73 65 65 20 69 66 20 79 | 6f 75 20 75 6e 64 65 72 |see if y|ou under|
|000006e0| 73 74 61 6e 64 20 77 68 | 79 2e 2e 2e 0d 28 7c 09 |stand wh|y....(|.|
|000006f0| 09 20 20 20 20 54 68 69 | 73 20 69 73 20 6e 6f 74 |.    Thi|s is not|
|00000700| 20 61 20 6e 6f 72 6d 61 | 6c 20 77 61 79 20 74 6f | a norma|l way to|
|00000710| 20 75 73 65 20 74 68 65 | 73 65 20 73 74 61 74 65 | use the|se state|
|00000720| 6d 65 6e 74 73 20 73 6f | 20 69 73 20 6e 6f 74 0d |ments so| is not.|
|00000730| 28 7c 09 09 20 20 20 20 | 75 73 75 61 6c 6c 79 20 |(|..    |usually |
|00000740| 61 20 70 72 6f 62 6c 65 | 6d 2e 20 20 46 6c 61 67 |a proble|m.  Flag|
|00000750| 67 65 64 2e 2e 2e 0d 28 | 09 09 20 32 2e 20 43 6f |ged....(|.. 2. Co|
|00000760| 6e 76 65 72 74 69 6e 67 | 20 63 6f 6d 6d 65 6e 74 |nverting| comment|
|00000770| 73 20 69 6e 74 6f 20 6c | 61 62 65 6c 73 20 6d 69 |s into l|abels mi|
|00000780| 67 68 74 20 6f 76 65 72 | 66 6c 6f 77 20 6c 61 62 |ght over|flow lab|
|00000790| 65 6c 0d 28 09 09 20 20 | 20 20 6c 69 6d 69 74 73 |el.(..  |  limits|
|000007a0| 2e 20 20 53 69 6e 63 65 | 20 6d 6f 73 74 20 6f 66 |.  Since| most of|
|000007b0| 20 6d 79 20 70 72 6f 63 | 65 64 75 72 65 73 20 61 | my proc|edures a|
|000007c0| 72 65 20 73 6d 61 6c 6c | 2c 20 74 68 69 73 20 69 |re small|, this i|
|000007d0| 73 0d 28 09 09 20 20 20 | 20 6e 6f 74 20 65 78 70 |s.(..   | not exp|
|000007e0| 65 63 74 65 64 0d 28 09 | 09 20 33 2e 20 53 74 72 |ected.(.|. 3. Str|
|000007f0| 69 6e 67 73 20 63 6f 6e | 74 61 69 6e 69 6e 67 20 |ings con|taining |
|00000800| 7e 20 6f 72 20 60 20 74 | 68 61 74 20 61 72 65 20 |~ or ` t|hat are |
|00000810| 6e 6f 74 20 76 61 72 69 | 61 62 6c 65 73 20 77 69 |not vari|ables wi|
|00000820| 6c 6c 20 62 65 0d 28 7c | 09 09 20 20 20 20 63 6f |ll be.(||..    co|
|00000830| 6e 76 65 72 74 65 64 20 | 75 6e 63 6f 6e 64 69 74 |nverted |uncondit|
|00000840| 69 6f 6e 61 6c 6c 79 20 | 69 6e 63 6c 75 64 69 6e |ionally |includin|
|00000850| 67 20 63 6f 6d 6d 65 6e | 74 73 0d 28 7c 09 09 20 |g commen|ts.(|.. |
|00000860| 34 2e 20 41 73 20 6e 6f | 74 65 64 20 70 72 65 76 |4. As no|ted prev|
|00000870| 69 6f 75 73 6c 79 20 4d | 45 4e 55 44 4f 45 53 20 |iously M|ENUDOES |
|00000880| 69 73 20 4e 4f 54 20 63 | 6f 6e 76 65 72 74 65 64 |is NOT c|onverted|
|00000890| 20 61 75 74 6f 6d 61 74 | 69 63 61 6c 6c 79 0d 28 | automat|ically.(|
|000008a0| 7c 09 09 20 20 20 20 72 | 65 71 75 69 72 65 73 20 ||..    r|equires |
|000008b0| 6d 61 6e 75 61 6c 20 69 | 6e 74 65 72 76 65 6e 74 |manual i|ntervent|
|000008c0| 69 6f 6e 20 3c 3c 20 54 | 48 49 53 20 49 53 20 54 |ion << T|HIS IS T|
|000008d0| 48 45 20 42 49 47 47 45 | 53 54 20 50 41 49 4e 20 |HE BIGGE|ST PAIN |
|000008e0| 3e 3e 0d 28 0d 28 20 57 | 41 52 4e 4e 47 53 3a 09 |>>.(.( W|ARNNGS:.|
|000008f0| 44 6f 20 6e 6f 74 20 72 | 75 6e 20 6f 6e 20 61 6e |Do not r|un on an|
|00000900| 20 61 6c 72 65 61 64 79 | 20 63 6f 6e 76 65 72 74 | already| convert|
|00000910| 65 64 20 66 69 6c 65 2e | 0d 28 7c 0d 28 7c 09 09 |ed file.|.(|.(|..|
|00000920| 54 68 69 73 20 76 65 72 | 73 69 6f 6e 20 64 65 73 |This ver|sion des|
|00000930| 69 67 6e 65 64 20 66 6f | 72 20 52 65 64 20 52 79 |igned fo|r Red Ry|
|00000940| 64 65 72 20 31 30 2e 33 | 20 6f 6e 6c 79 21 20 20 |der 10.3| only!  |
|00000950| 46 6f 72 20 31 30 2e 30 | 20 79 6f 75 0d 28 7c 09 |For 10.0| you.(|.|
|00000960| 09 6d 75 73 74 20 63 68 | 61 6e 67 65 20 61 6c 6c |.must ch|ange all|
|00000970| 20 74 68 65 20 52 45 50 | 4c 41 43 45 24 20 63 6f | the REP|LACE$ co|
|00000980| 6d 6d 61 6e 64 73 2c 20 | 62 65 63 61 75 73 65 20 |mmands, |because |
|00000990| 74 68 61 74 20 76 65 72 | 73 69 6f 6e 20 64 69 64 |that ver|sion did|
|000009a0| 0d 28 7c 09 09 6e 6f 74 | 20 69 6d 70 6c 65 6d 65 |.(|..not| impleme|
|000009b0| 6e 74 20 74 68 65 20 52 | 45 50 4c 41 43 45 24 20 |nt the R|EPLACE$ |
|000009c0| 63 6f 6d 6d 61 6e 64 20 | 70 72 6f 70 65 72 6c 79 |command |properly|
|000009d0| 20 28 72 65 76 65 72 73 | 65 20 6e 75 6d 65 72 69 | (revers|e numeri|
|000009e0| 63 0d 28 7c 09 09 70 61 | 72 61 6d 65 74 65 72 73 |c.(|..pa|rameters|
|000009f0| 29 2e 0d 28 0d 28 20 4c | 49 43 45 4e 53 45 3a 09 |)..(.( L|ICENSE:.|
|00000a00| 54 68 69 73 20 70 72 6f | 63 65 64 75 72 65 20 69 |This pro|cedure i|
|00000a10| 73 20 6e 6f 74 20 69 6e | 20 74 68 65 20 70 75 62 |s not in| the pub|
|00000a20| 6c 69 63 20 64 6f 6d 61 | 69 6e 2c 20 62 75 74 20 |lic doma|in, but |
|00000a30| 6d 61 79 20 62 65 20 66 | 72 65 65 6c 79 20 0d 28 |may be f|reely .(|
|00000a40| 09 09 75 73 65 64 20 66 | 6f 72 20 6e 6f 6e 2d 63 |..used f|or non-c|
|00000a50| 6f 6d 6d 65 72 63 69 61 | 6c 20 70 75 72 70 6f 73 |ommercia|l purpos|
|00000a60| 65 73 20 62 79 20 61 6c | 6c 20 70 61 69 64 20 26 |es by al|l paid &|
|00000a70| 20 72 65 67 69 73 74 65 | 72 65 64 20 75 73 65 72 | registe|red user|
|00000a80| 73 0d 28 09 09 6f 66 20 | 46 72 65 65 73 6f 66 74 |s.(..of |Freesoft|
|00000a90| 27 73 20 52 65 64 20 52 | 79 64 65 72 20 31 30 2e |'s Red R|yder 10.|
|00000aa0| 33 20 74 65 72 6d 69 6e | 61 6c 20 65 6d 75 6c 61 |3 termin|al emula|
|00000ab0| 74 69 6f 6e 20 70 72 6f | 67 72 61 6d 2e 20 20 49 |tion pro|gram.  I|
|00000ac0| 74 0d 28 09 09 6d 61 79 | 20 6e 6f 74 20 62 65 20 |t.(..may| not be |
|00000ad0| 73 6f 6c 64 20 6e 6f 72 | 20 75 73 65 64 20 61 73 |sold nor| used as|
|00000ae0| 20 69 6e 63 65 6e 74 69 | 76 65 20 74 6f 20 62 75 | incenti|ve to bu|
|00000af0| 79 20 61 6e 79 20 6f 74 | 68 65 72 20 70 72 6f 64 |y any ot|her prod|
|00000b00| 75 63 74 2e 0d 28 09 09 | 54 68 69 73 20 70 72 6f |uct..(..|This pro|
|00000b10| 63 65 64 75 72 65 20 69 | 73 20 73 75 70 70 6c 69 |cedure i|s suppli|
|00000b20| 65 64 20 66 6f 72 20 75 | 73 65 20 41 53 20 49 53 |ed for u|se AS IS|
|00000b30| 2c 20 61 6e 64 20 74 68 | 65 72 65 20 61 72 65 20 |, and th|ere are |
|00000b40| 6e 6f 0d 28 09 09 67 75 | 61 72 61 6e 74 65 65 73 |no.(..gu|arantees|
|00000b50| 20 6f 66 20 63 6f 72 72 | 65 63 74 6e 65 73 73 20 | of corr|ectness |
|00000b60| 6f 72 20 75 73 61 62 69 | 6c 69 74 79 20 66 6f 72 |or usabi|lity for|
|00000b70| 20 61 6e 79 20 70 61 72 | 74 69 63 75 6c 61 72 20 | any par|ticular |
|00000b80| 0d 28 09 09 70 75 72 70 | 6f 73 65 2e 20 20 55 53 |.(..purp|ose.  US|
|00000b90| 45 20 41 54 20 59 4f 55 | 52 20 4f 57 4e 20 52 49 |E AT YOU|R OWN RI|
|00000ba0| 53 4b 2e 0d 28 0d 28 20 | 41 55 54 48 4f 52 3a 09 |SK..(.( |AUTHOR:.|
|00000bb0| 44 61 76 69 64 20 43 2e | 20 42 6c 61 63 6b 2c 20 |David C.| Black, |
|00000bc0| 33 31 31 20 42 6c 61 63 | 6b 62 65 72 72 79 20 44 |311 Blac|kberry D|
|00000bd0| 72 69 76 65 2c 20 41 75 | 73 74 69 6e 2c 20 54 78 |rive, Au|stin, Tx|
|00000be0| 20 37 38 37 34 35 2d 36 | 35 34 36 0d 28 09 09 43 | 78745-6|546.(..C|
|00000bf0| 4f 50 59 52 49 47 48 54 | 20 a9 31 39 38 37 20 62 |OPYRIGHT| .1987 b|
|00000c00| 79 20 44 61 76 69 64 20 | 42 6c 61 63 6b 2c 20 61 |y David |Black, a|
|00000c10| 6c 6c 20 72 69 67 68 74 | 73 20 72 65 73 65 72 76 |ll right|s reserv|
|00000c20| 65 64 2e 0d 28 0d 28 20 | 4e 4f 54 45 53 3a 09 54 |ed..(.( |NOTES:.T|
|00000c30| 68 69 73 20 70 72 6f 63 | 65 64 75 72 65 20 69 73 |his proc|edure is|
|00000c40| 20 56 45 52 59 20 53 4c | 4f 57 2e 2e 2e 2e 62 75 | VERY SL|OW....bu|
|00000c50| 74 20 74 68 65 6e 20 61 | 67 61 69 6e 20 69 74 20 |t then a|gain it |
|00000c60| 69 73 20 61 75 74 6f 6d | 61 74 69 63 0d 28 09 09 |is autom|atic.(..|
|00000c70| 61 6e 64 20 64 6f 65 73 | 20 73 61 76 65 20 74 69 |and does| save ti|
|00000c80| 6d 65 20 6f 76 65 72 20 | 6d 61 6e 75 61 6c 20 63 |me over |manual c|
|00000c90| 6f 6e 76 65 72 73 69 6f | 6e 20 69 6e 20 6d 6f 73 |onversio|n in mos|
|00000ca0| 74 20 63 61 73 65 73 2e | 0d 28 0d 28 7c 09 09 54 |t cases.|.(.(|..T|
|00000cb0| 68 69 73 20 70 72 6f 63 | 65 64 75 72 65 20 73 68 |his proc|edure sh|
|00000cc0| 6f 75 6c 64 20 62 65 20 | 61 63 63 6f 6d 70 61 6e |ould be |accompan|
|00000cd0| 69 65 64 20 62 79 20 61 | 20 66 69 6c 65 20 63 61 |ied by a| file ca|
|00000ce0| 6c 6c 65 64 20 53 41 4d | 50 4c 45 0d 28 7c 09 09 |lled SAM|PLE.(|..|
|00000cf0| 74 68 61 74 20 69 73 20 | 75 73 65 64 20 74 6f 20 |that is |used to |
|00000d00| 74 65 73 74 20 74 68 65 | 20 63 6f 6e 76 65 72 73 |test the| convers|
|00000d10| 69 6f 6e 20 70 72 6f 63 | 65 73 73 2e 20 20 49 74 |ion proc|ess.  It|
|00000d20| 20 69 6c 6c 75 73 74 72 | 61 74 65 73 0d 28 7c 09 | illustr|ates.(|.|
|00000d30| 09 61 6c 6c 20 6f 66 20 | 74 68 65 20 63 6f 6e 76 |.all of |the conv|
|00000d40| 65 72 73 69 6f 6e 73 20 | 70 65 72 66 6f 72 6d 65 |ersions |performe|
|00000d50| 64 2e 20 20 52 65 6d 65 | 6d 62 65 72 20 74 6f 20 |d.  Reme|mber to |
|00000d60| 73 61 76 65 20 61 20 63 | 6f 70 79 20 6f 72 0d 28 |save a c|opy or.(|
|00000d70| 7c 09 09 72 65 73 74 6f | 72 65 20 74 68 65 20 2e ||..resto|re the .|
|00000d80| 4f 4c 44 20 77 68 65 6e | 20 74 65 73 74 69 6e 67 |OLD when| testing|
|00000d90| 2e 0d 28 0d 28 09 09 49 | 66 20 79 6f 75 20 73 68 |..(.(..I|f you sh|
|00000da0| 6f 75 6c 64 20 66 69 6e | 64 20 77 61 79 73 20 74 |ould fin|d ways t|
|00000db0| 6f 20 69 6d 70 72 6f 76 | 65 20 74 68 69 73 20 70 |o improv|e this p|
|00000dc0| 72 6f 63 65 64 75 72 65 | 2c 20 49 20 77 6f 75 6c |rocedure|, I woul|
|00000dd0| 64 0d 28 09 09 61 70 70 | 72 65 63 69 61 74 65 20 |d.(..app|reciate |
|00000de0| 68 65 61 72 69 6e 67 20 | 66 72 6f 6d 20 79 6f 75 |hearing |from you|
|00000df0| 20 61 62 6f 75 74 20 74 | 68 65 20 6d 6f 64 69 66 | about t|he modif|
|00000e00| 69 63 61 74 69 6f 6e 73 | 2e 20 20 49 66 20 79 6f |ications|.  If yo|
|00000e10| 75 0d 28 09 09 64 6f 20 | 6d 6f 64 69 66 79 20 74 |u.(..do |modify t|
|00000e20| 68 69 73 20 70 72 6f 63 | 65 64 75 72 65 2c 20 70 |his proc|edure, p|
|00000e30| 6c 65 61 73 65 20 6d 61 | 6b 65 20 61 70 70 72 6f |lease ma|ke appro|
|00000e40| 70 72 69 61 74 65 20 61 | 64 64 69 74 69 6f 6e 73 |priate a|dditions|
|00000e50| 20 74 6f 0d 28 09 09 74 | 68 65 20 68 69 73 74 6f | to.(..t|he histo|
|00000e60| 72 79 20 62 65 6c 6f 77 | 2c 20 61 6e 64 20 69 6e |ry below|, and in|
|00000e70| 64 69 63 61 74 65 20 79 | 6f 75 72 20 6e 61 6d 65 |dicate y|our name|
|00000e80| 20 26 20 61 64 64 72 65 | 73 73 20 62 65 66 6f 72 | & addre|ss befor|
|00000e90| 65 0d 28 09 09 73 75 70 | 70 6c 79 69 6e 67 20 63 |e.(..sup|plying c|
|00000ea0| 6f 70 69 65 73 20 6f 66 | 20 79 6f 75 72 20 27 6e |opies of| your 'n|
|00000eb0| 65 77 20 26 20 69 6d 70 | 72 6f 76 65 64 27 20 76 |ew & imp|roved' v|
|00000ec0| 65 72 73 69 6f 6e 20 74 | 6f 20 6f 74 68 65 72 73 |ersion t|o others|
|00000ed0| 2e 20 20 49 0d 28 7c 09 | 09 63 61 6e 20 72 65 73 |.  I.(|.|.can res|
|00000ee0| 70 6f 6e 64 20 74 6f 20 | 6d 79 20 6f 77 6e 20 63 |pond to |my own c|
|00000ef0| 6f 64 65 2c 20 62 75 74 | 20 49 20 63 61 6e 6e 6f |ode, but| I canno|
|00000f00| 74 20 62 65 20 72 65 73 | 70 6f 6e 73 69 62 6c 65 |t be res|ponsible|
|00000f10| 20 66 6f 72 0d 28 7c 09 | 09 73 75 70 70 6f 72 74 | for.(|.|.support|
|00000f20| 69 6e 67 20 6f 74 68 65 | 72 73 2e 0d 28 0d 28 7c |ing othe|rs..(.(||
|00000f30| 09 09 4d 6f 64 69 66 69 | 63 61 74 69 6f 6e 73 20 |..Modifi|cations |
|00000f40| 74 6f 20 74 68 69 73 20 | 63 6f 6d 6d 65 6e 74 20 |to this |comment |
|00000f50| 73 65 63 74 69 6f 6e 20 | 61 72 65 20 69 6e 64 69 |section |are indi|
|00000f60| 63 61 74 65 64 20 77 69 | 74 68 20 63 68 61 6e 67 |cated wi|th chang|
|00000f70| 65 0d 28 7c 09 09 62 61 | 72 73 20 28 7c 29 20 69 |e.(|..ba|rs (|) i|
|00000f80| 6e 20 74 68 65 20 73 65 | 63 6f 6e 64 20 63 6f 6c |n the se|cond col|
|00000f90| 75 6d 6e 20 6f 66 20 74 | 68 65 20 63 6f 6d 6d 65 |umn of t|he comme|
|00000fa0| 6e 74 2e 0d 28 0d 28 20 | 4d 4f 44 49 46 49 45 44 |nt..(.( |MODIFIED|
|00000fb0| 20 57 48 4f 20 56 45 52 | 20 52 45 41 53 4f 4e 0d | WHO VER| REASON.|
|00000fc0| 28 20 2d 2d 2d 2d 2d 2d | 2d 2d 20 2d 2d 2d 20 2d |( ------|-- --- -|
|00000fd0| 2d 2d 20 2d 2d 2d 2d 2d | 2d 0d 28 20 30 39 2f 30 |-- -----|-.( 09/0|
|00000fe0| 36 2f 38 37 20 44 43 42 | 20 31 2e 30 20 4f 72 69 |6/87 DCB| 1.0 Ori|
|00000ff0| 67 69 6e 61 6c 0d 28 20 | 30 39 2f 31 32 2f 38 37 |ginal.( |09/12/87|
|00001000| 20 44 43 42 20 31 2e 31 | 20 46 69 78 65 64 20 72 | DCB 1.1| Fixed r|
|00001010| 65 6e 61 6d 69 6e 67 20 | 70 72 6f 6d 70 74 2c 20 |enaming |prompt, |
|00001020| 76 61 72 69 61 62 6c 65 | 73 20 63 6f 6e 76 65 72 |variable|s conver|
|00001030| 74 65 64 20 69 6e 20 63 | 6f 6d 6d 65 6e 74 73 0d |ted in c|omments.|
|00001040| 28 20 30 39 2f 31 33 2f | 38 37 20 44 43 42 20 31 |( 09/13/|87 DCB 1|
|00001050| 2e 32 20 46 69 78 65 64 | 20 4d 45 4e 55 44 4f 45 |.2 Fixed| MENUDOE|
|00001060| 53 3b 20 61 64 64 65 64 | 20 53 54 52 49 4e 47 54 |S; added| STRINGT|
|00001070| 4f 4e 55 4d 20 26 20 4e | 55 4d 54 4f 53 54 52 49 |ONUM & N|UMTOSTRI|
|00001080| 4e 47 20 63 61 73 65 73 | 3b 0d 28 09 09 20 20 20 |NG cases|;.(..   |
|00001090| 61 64 64 65 64 20 53 43 | 52 45 45 4e 43 4f 50 59 |added SC|REENCOPY|
|000010a0| 2c 20 43 55 52 53 4f 52 | 20 48 2c 20 43 55 52 53 |, CURSOR| H, CURS|
|000010b0| 4f 52 20 41 2c 20 54 45 | 53 54 20 68 61 6e 64 6c |OR A, TE|ST handl|
|000010c0| 69 6e 67 3b 0d 28 09 09 | 20 20 20 61 64 64 65 64 |ing;.(..|   added|
|000010d0| 20 6f 70 74 69 6f 6e 20 | 74 6f 20 65 64 69 74 20 | option |to edit |
|000010e0| 4d 45 4e 55 44 4f 45 53 | 20 65 78 74 65 72 6e 61 |MENUDOES| externa|
|000010f0| 6c 6c 79 3b 20 72 65 6d | 6f 76 65 64 20 54 45 58 |lly; rem|oved TEX|
|00001100| 54 0d 28 09 09 20 20 20 | 72 65 73 74 72 69 63 74 |T.(..   |restrict|
|00001110| 69 6f 6e 20 6f 6e 20 73 | 6f 75 72 63 65 20 66 69 |ion on s|ource fi|
|00001120| 6c 65 73 3b 20 61 64 64 | 65 64 20 63 68 65 63 6b |les; add|ed check|
|00001130| 20 66 6f 72 20 66 69 72 | 73 74 20 6c 69 6e 65 0d | for fir|st line.|
|00001140| 28 09 09 20 20 20 63 6f | 6d 6d 65 6e 74 20 62 65 |(..   co|mment be|
|00001150| 67 69 6e 69 6e 67 20 77 | 69 74 68 20 28 28 21 20 |gining w|ith ((! |
|00001160| 74 6f 20 70 72 65 76 65 | 6e 74 20 63 6f 6e 76 65 |to preve|nt conve|
|00001170| 72 73 69 6f 6e 3b 20 61 | 64 64 65 64 0d 28 09 09 |rsion; a|dded.(..|
|00001180| 20 20 20 6f 75 74 70 75 | 74 20 63 6f 6d 6d 65 6e |   outpu|t commen|
|00001190| 74 20 74 6f 20 66 69 72 | 73 74 20 6c 69 6e 65 20 |t to fir|st line |
|000011a0| 6f 66 20 6e 65 77 20 70 | 72 6f 63 65 64 75 72 65 |of new p|rocedure|
|000011b0| 20 69 6e 64 69 63 61 74 | 69 6e 67 0d 28 09 09 20 | indicat|ing.(.. |
|000011c0| 20 20 61 6c 72 65 61 64 | 79 20 63 6f 6e 76 65 72 |  alread|y conver|
|000011d0| 74 65 64 20 70 72 6f 63 | 65 64 75 72 65 20 77 69 |ted proc|edure wi|
|000011e0| 74 68 20 28 28 21 20 61 | 73 20 61 62 6f 76 65 3b |th ((! a|s above;|
|000011f0| 20 61 64 64 65 64 20 6c | 69 6d 69 74 0d 28 09 09 | added l|imit.(..|
|00001200| 20 20 20 74 6f 20 63 6f | 6d 6d 65 6e 74 20 63 6f |   to co|mment co|
|00001210| 6e 76 65 72 73 69 6f 6e | 20 6c 65 6e 67 74 68 20 |nversion| length |
|00001220| 77 69 74 68 20 63 68 65 | 63 6b 20 6f 6e 20 4a 55 |with che|ck on JU|
|00001230| 4d 50 54 4f 0d 28 20 30 | 39 2f 31 35 2f 38 37 20 |MPTO.( 0|9/15/87 |
|00001240| 44 43 42 20 31 2e 33 20 | 41 64 64 65 64 20 50 41 |DCB 1.3 |Added PA|
|00001250| 55 53 45 20 77 69 74 68 | 20 6e 6f 20 70 61 72 61 |USE with| no para|
|00001260| 6d 65 74 65 72 73 20 62 | 65 63 6f 6d 65 73 20 50 |meters b|ecomes P|
|00001270| 41 55 53 45 20 36 30 0d | 28 20 31 31 2f 30 33 2f |AUSE 60.|( 11/03/|
|00001280| 38 37 20 44 43 42 20 31 | 2e 34 20 4d 6f 64 69 66 |87 DCB 1|.4 Modif|
|00001290| 69 65 64 20 66 6f 72 20 | 52 65 64 20 52 79 64 65 |ied for |Red Ryde|
|000012a0| 72 20 31 30 2e 33 0d 28 | 20 31 31 2f 30 38 2f 38 |r 10.3.(| 11/08/8|
|000012b0| 37 20 44 43 42 20 31 2e | 35 20 52 65 6d 6f 76 65 |7 DCB 1.|5 Remove|
|000012c0| 64 20 6f 6c 64 20 70 72 | 6f 62 6c 65 6d 20 6f 66 |d old pr|oblem of|
|000012d0| 20 72 65 71 75 69 72 69 | 6e 67 20 61 6c 6c 20 63 | requiri|ng all c|
|000012e0| 6f 6d 6d 61 6e 64 73 20 | 74 6f 20 62 65 0d 28 09 |ommands |to be.(.|
|000012f0| 09 20 20 20 61 74 20 74 | 68 65 20 62 65 67 69 6e |.   at t|he begin|
|00001300| 6e 69 6e 67 20 6f 66 20 | 74 68 65 20 6c 69 6e 65 |ning of |the line|
|00001310| 2e 20 20 4e 6f 77 20 68 | 61 6e 64 6c 65 73 20 49 |.  Now h|andles I|
|00001320| 46 20 45 52 52 4f 52 2c | 0d 28 09 09 20 20 20 49 |F ERROR,|.(..   I|
|00001330| 46 20 4e 4f 20 45 52 52 | 4f 52 2c 20 49 46 20 59 |F NO ERR|OR, IF Y|
|00001340| 45 53 2c 20 49 46 20 4e | 4f 2c 20 4f 4e 50 41 4e |ES, IF N|O, ONPAN|
|00001350| 49 43 2c 20 61 6e 64 20 | 41 4c 45 52 54 27 73 2e |IC, and |ALERT's.|
|00001360| 20 41 6c 73 6f 0d 28 09 | 09 20 20 20 64 6f 63 75 | Also.(.|.   docu|
|00001370| 6d 65 6e 74 65 64 20 76 | 61 72 69 61 62 6c 65 20 |mented v|ariable |
|00001380| 75 73 65 73 2c 20 61 6e | 64 20 63 6f 72 72 65 63 |uses, an|d correc|
|00001390| 74 65 64 20 73 6f 6d 65 | 20 63 6f 6d 6d 65 6e 74 |ted some| comment|
|000013a0| 73 2e 0d 28 09 09 20 20 | 20 41 64 64 65 64 20 74 |s..(..  | Added t|
|000013b0| 65 73 74 20 66 6f 72 20 | 6c 69 6e 65 73 20 67 72 |est for |lines gr|
|000013c0| 65 61 74 65 72 20 74 68 | 61 6e 20 37 39 20 63 68 |eater th|an 79 ch|
|000013d0| 61 72 73 2e 20 28 6c 65 | 67 61 6c 20 6c 69 6e 65 |ars. (le|gal line|
|000013e0| 0d 28 09 09 20 20 20 6c | 65 6e 67 74 68 20 6c 69 |.(..   l|ength li|
|000013f0| 6d 69 74 20 66 6f 72 20 | 52 65 64 20 52 79 64 65 |mit for |Red Ryde|
|00001400| 72 20 70 72 6f 63 65 64 | 75 72 65 73 29 2e 0d 28 |r proced|ures)..(|
|00001410| 20 31 31 2f 30 38 2f 38 | 37 20 44 43 42 20 31 2e | 11/08/8|7 DCB 1.|
|00001420| 36 20 41 64 64 65 64 20 | 63 75 73 74 6f 6d 20 6d |6 Added |custom m|
|00001430| 65 6e 75 73 20 77 69 74 | 68 20 53 48 45 4c 4c 20 |enus wit|h SHELL |
|00001440| 63 6f 6d 70 69 6c 65 72 | 20 26 20 63 68 61 6e 67 |compiler| & chang|
|00001450| 65 64 20 6d 65 73 73 61 | 67 65 0d 28 09 09 20 20 |ed messa|ge.(..  |
|00001460| 20 6e 6f 74 69 66 79 69 | 6e 67 20 75 73 65 72 20 | notifyi|ng user |
|00001470| 6f 66 20 66 69 6c 65 20 | 72 65 6e 61 6d 69 6e 67 |of file |renaming|
|00001480| 2e 0d 28 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..(*****|********|
|00001490| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000014a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000014b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000014c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 0d 28 20 53 74 72 |********|*..( Str|
|000014d0| 69 6e 67 20 76 61 72 69 | 61 62 6c 65 73 3a 0d 28 |ing vari|ables:.(|
|000014e0| 09 41 24 09 41 70 70 6c | 69 63 61 74 69 6f 6e 20 |.A$.Appl|ication |
|000014f0| 74 6f 20 65 78 69 74 20 | 74 6f 0d 28 09 43 24 09 |to exit |to.(.C$.|
|00001500| 43 6f 75 6e 74 20 6f 66 | 20 6c 69 6e 65 73 20 70 |Count of| lines p|
|00001510| 72 6f 63 65 73 73 65 64 | 0d 28 09 44 24 09 44 6f |rocessed|.(.D$.Do|
|00001520| 6c 6c 61 72 20 73 69 67 | 6e 20 28 24 29 0d 28 09 |llar sig|n ($).(.|
|00001530| 46 24 09 46 69 6c 65 6e | 61 6d 65 20 61 72 67 75 |F$.Filen|ame argu|
|00001540| 6d 65 6e 74 0d 28 09 49 | 24 09 49 6e 70 75 74 20 |ment.(.I|$.Input |
|00001550| 70 61 74 68 6e 61 6d 65 | 0d 28 09 4b 24 09 50 72 |pathname|.(.K$.Pr|
|00001560| 65 66 69 78 20 74 6f 20 | 6c 69 6e 65 0d 28 09 4c |efix to |line.(.L|
|00001570| 24 09 4c 69 6e 65 20 74 | 6f 20 62 65 20 70 72 6f |$.Line t|o be pro|
|00001580| 63 65 73 73 65 64 0d 28 | 09 4f 24 09 4f 75 74 70 |cessed.(|.O$.Outp|
|00001590| 75 74 20 70 61 74 68 6e | 61 6d 65 0d 28 09 50 24 |ut pathn|ame.(.P$|
|000015a0| 09 50 65 72 63 65 6e 74 | 20 73 69 67 6e 20 28 25 |.Percent| sign (%|
|000015b0| 29 0d 28 09 54 24 09 54 | 65 6d 70 6f 72 61 72 79 |).(.T$.T|emporary|
|000015c0| 20 31 0d 28 09 55 24 09 | 54 65 6d 70 6f 72 61 72 | 1.(.U$.|Temporar|
|000015d0| 79 20 32 0d 28 09 56 24 | 09 56 65 72 73 69 6f 6e |y 2.(.V$|.Version|
|000015e0| 0d 28 09 58 24 09 50 72 | 6f 6d 70 74 20 6c 69 6e |.(.X$.Pr|ompt lin|
|000015f0| 65 20 31 0d 28 09 59 24 | 09 50 72 6f 6d 70 74 20 |e 1.(.Y$|.Prompt |
|00001600| 6c 69 6e 65 20 32 0d 28 | 09 5a 24 09 50 72 6f 6d |line 2.(|.Z$.Prom|
|00001610| 70 74 20 6c 69 6e 65 20 | 33 0d 28 0d 28 20 4e 75 |pt line |3.(.( Nu|
|00001620| 6d 65 72 69 63 20 76 61 | 72 69 61 62 6c 65 73 3a |meric va|riables:|
|00001630| 0d 28 09 42 25 09 42 75 | 74 74 6f 6e 20 70 72 65 |.(.B%.Bu|tton pre|
|00001640| 73 73 65 64 0d 28 09 43 | 25 09 43 6f 75 6e 74 20 |ssed.(.C|%.Count |
|00001650| 6f 66 20 6c 69 6e 65 73 | 20 70 72 6f 63 65 73 73 |of lines| process|
|00001660| 65 64 0d 28 09 45 25 09 | 23 20 6c 69 6e 65 73 20 |ed.(.E%.|# lines |
|00001670| 45 78 63 65 65 64 69 6e | 67 20 37 39 20 63 68 61 |Exceedin|g 79 cha|
|00001680| 72 20 6c 69 6d 69 74 0d | 28 09 46 25 09 46 69 6c |r limit.|(.F%.Fil|
|00001690| 65 6e 61 6d 65 20 69 6e | 64 65 78 0d 28 09 4a 25 |ename in|dex.(.J%|
|000016a0| 09 4a 55 4d 50 54 4f 20 | 6c 61 62 65 6c 73 20 74 |.JUMPTO |labels t|
|000016b0| 6f 20 66 69 78 0d 28 09 | 4b 25 09 23 20 6c 69 6e |o fix.(.|K%.# lin|
|000016c0| 65 73 20 77 69 74 68 20 | 4f 4e 50 41 4e 49 43 20 |es with |ONPANIC |
|000016d0| 6f 72 20 41 4c 45 52 54 | 20 70 72 6f 62 6c 65 6d |or ALERT| problem|
|000016e0| 73 20 28 73 65 65 20 70 | 72 6f 62 6c 65 6d 20 23 |s (see p|roblem #|
|000016f0| 31 29 0d 28 09 4c 25 09 | 4c 69 6e 65 20 69 6e 64 |1).(.L%.|Line ind|
|00001700| 65 78 0d 28 09 4d 25 09 | 4d 45 4e 55 44 4f 45 53 |ex.(.M%.|MENUDOES|
|00001710| 20 63 6f 6d 6d 61 6e 64 | 73 20 74 6f 20 66 69 78 | command|s to fix|
|00001720| 0d 28 09 52 25 09 52 75 | 6e 74 69 6d 65 20 65 6c |.(.R%.Ru|ntime el|
|00001730| 61 70 73 65 64 0d 28 09 | 54 25 09 54 65 6d 70 6f |apsed.(.|T%.Tempo|
|00001740| 72 61 72 79 0d 28 09 5a | 25 09 4c 61 62 61 6c 20 |rary.(.Z|%.Labal |
|00001750| 6c 65 6e 67 74 68 20 6c | 69 6d 69 74 0d 0d 28 20 |length l|imit..( |
|00001760| 2a 2a 2a 20 49 6e 74 72 | 6f 64 75 63 74 69 6f 6e |*** Intr|oduction|
|00001770| 20 2a 2a 2a 0d 43 4f 50 | 59 49 4e 54 4f 20 56 24 | ***.COP|YINTO V$|
|00001780| 2c 31 2e 36 0d 45 52 41 | 53 45 20 40 30 0d 45 52 |,1.6.ERA|SE @0.ER|
|00001790| 41 53 45 20 40 31 0d 45 | 52 41 53 45 20 40 32 0d |ASE @1.E|RASE @2.|
|000017a0| 40 20 4f 4e 0d 53 48 4f | 57 40 0d 28 2d 2d 2d 2d |@ ON.SHO|W@.(----|
|000017b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017f0| 2d 2d 0d 28 20 44 4c 4f | 47 20 31 30 30 30 0d 28 |--.( DLO|G 1000.(|
|00001800| 20 20 20 31 09 42 74 6e | 49 74 65 6d 20 45 6e 61 |   1.Btn|Item Ena|
|00001810| 62 6c 65 64 09 09 4f 4b | 0d 28 20 20 20 32 09 42 |bled..OK|.(   2.B|
|00001820| 74 6e 49 74 65 6d 20 45 | 6e 61 62 6c 65 64 09 09 |tnItem E|nabled..|
|00001830| 43 61 6e 63 65 6c 0d 28 | 20 20 20 33 09 53 74 61 |Cancel.(|   3.Sta|
|00001840| 74 54 65 78 74 20 45 6e | 61 62 6c 65 64 09 58 24 |tText En|abled.X$|
|00001850| 3d 55 70 64 61 74 65 20 | 52 65 64 20 52 79 64 65 |=Update |Red Ryde|
|00001860| 72 20 39 2e 58 20 50 52 | 4f 43 73 c9 0d 28 20 20 |r 9.X PR|OCs..(  |
|00001870| 20 34 09 53 74 61 74 54 | 65 78 74 20 45 6e 61 62 | 4.StatT|ext Enab|
|00001880| 6c 65 64 09 59 24 3d 4d | 61 79 20 62 65 20 66 72 |led.Y$=M|ay be fr|
|00001890| 65 65 6c 79 20 75 73 65 | 64 20 66 6f 72 20 6e 6f |eely use|d for no|
|000018a0| 6e 2d 63 6f 6d 6d 65 72 | 63 69 61 6c c9 0d 28 20 |n-commer|cial..( |
|000018b0| 20 20 35 09 53 74 61 74 | 54 65 78 74 20 45 6e 61 |  5.Stat|Text Ena|
|000018c0| 62 6c 65 64 09 5a 24 3d | 43 4f 50 59 52 49 47 48 |bled.Z$=|COPYRIGH|
|000018d0| 54 20 31 39 38 37 20 62 | 79 20 44 61 76 69 64 20 |T 1987 b|y David |
|000018e0| 42 6c 61 63 6b 2c 20 61 | 6c 6c c9 0d 28 20 20 20 |Black, a|ll..(   |
|000018f0| 36 09 53 74 61 74 54 65 | 78 74 20 45 6e 61 62 6c |6.StatTe|xt Enabl|
|00001900| 65 64 09 4c 69 6d 69 74 | 20 6c 61 62 65 6c 73 20 |ed.Limit| labels |
|00001910| 74 6f 0d 28 20 20 20 37 | 09 45 64 69 74 54 65 78 |to.(   7|.EditTex|
|00001920| 74 20 45 6e 61 62 6c 65 | 64 09 4c 24 3d 32 30 0d |t Enable|d.L$=20.|
|00001930| 28 20 20 20 38 09 53 74 | 61 74 54 65 78 74 20 45 |(   8.St|atText E|
|00001940| 6e 61 62 6c 65 64 09 63 | 68 61 72 61 63 74 65 72 |nabled.c|haracter|
|00001950| 73 2e 0d 28 20 20 20 39 | 09 49 63 6f 6e 49 74 65 |s..(   9|.IconIte|
|00001960| 6d 20 45 6e 61 62 6c 65 | 64 09 44 61 76 69 64 20 |m Enable|d.David |
|00001970| 42 6c 61 63 6b 0d 28 2d | 2d 2d 2d 2d 2d 2d 2d 2d |Black.(-|--------|
|00001980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 43 4f |--------|-----.CO|
|000019c0| 50 59 49 4e 54 4f 20 58 | 24 2c 55 70 64 61 74 65 |PYINTO X|$,Update|
|000019d0| 20 52 65 64 20 52 79 64 | 65 72 20 39 2e 34 20 50 | Red Ryd|er 9.4 P|
|000019e0| 52 4f 43 73 20 66 6f 72 | 20 76 65 72 73 69 6f 6e |ROCs for| version|
|000019f0| 20 31 30 2e 33 20 2d 20 | 76 65 72 73 69 6f 6e 20 | 10.3 - |version |
|00001a00| 0d 43 4f 4e 43 41 54 20 | 58 24 2c 56 24 0d 43 4f |.CONCAT |X$,V$.CO|
|00001a10| 50 59 49 4e 54 4f 20 59 | 24 2c 4d 61 79 20 62 65 |PYINTO Y|$,May be|
|00001a20| 20 66 72 65 65 6c 79 20 | 75 73 65 64 20 66 6f 72 | freely |used for|
|00001a30| 20 6e 6f 6e 2d 63 6f 6d | 6d 65 72 63 69 61 6c 20 | non-com|mercial |
|00001a40| 70 75 72 70 6f 73 65 73 | 2e 0d 43 4f 50 59 49 4e |purposes|..COPYIN|
|00001a50| 54 4f 20 5a 24 2c 43 4f | 50 59 52 49 47 48 54 20 |TO Z$,CO|PYRIGHT |
|00001a60| 31 39 38 37 20 62 79 20 | 44 61 76 69 64 20 42 6c |1987 by |David Bl|
|00001a70| 61 63 6b 2c 20 61 6c 6c | 20 72 69 67 68 74 73 20 |ack, all| rights |
|00001a80| 72 65 73 65 72 76 65 64 | 2e 0d 43 4f 50 59 49 4e |reserved|..COPYIN|
|00001a90| 54 4f 20 4c 24 2c 32 30 | 0d 53 48 45 4c 4c 20 42 |TO L$,20|.SHELL B|
|00001aa0| 25 2c 31 30 30 30 0d 54 | 45 53 54 20 42 25 20 3d |%,1000.T|EST B% =|
|00001ab0| 20 32 0d 49 46 20 59 45 | 53 20 45 4e 44 0d 53 54 | 2.IF YE|S END.ST|
|00001ac0| 52 49 4e 47 54 4f 4e 55 | 4d 20 4c 24 2c 5a 25 0d |RINGTONU|M L$,Z%.|
|00001ad0| 0d 28 20 2a 2a 2a 20 49 | 6e 69 74 69 61 6c 69 7a |.( *** I|nitializ|
|00001ae0| 61 74 69 6f 6e 73 20 2a | 2a 2a 0d 43 4f 50 59 49 |ations *|**.COPYI|
|00001af0| 4e 54 4f 20 40 30 2c 55 | 70 64 61 74 69 6e 67 20 |NTO @0,U|pdating |
|00001b00| 39 2e 34 20 50 52 4f 43 | 20 66 6f 72 20 52 65 64 |9.4 PROC| for Red|
|00001b10| 20 52 79 64 65 72 20 31 | 30 2e 33 0d 53 48 4f 57 | Ryder 1|0.3.SHOW|
|00001b20| 40 0d 57 41 54 43 48 20 | 4f 4e 0d 43 4f 50 59 49 |@.WATCH |ON.COPYI|
|00001b30| 4e 54 4f 20 44 24 2c 24 | 0d 43 4f 50 59 49 4e 54 |NTO D$,$|.COPYINT|
|00001b40| 4f 20 50 24 2c 25 0d 4c | 45 54 20 45 51 55 41 4c |O P$,%.L|ET EQUAL|
|00001b50| 20 43 25 2c 30 0d 4c 45 | 54 20 45 51 55 41 4c 20 | C%,0.LE|T EQUAL |
|00001b60| 45 25 2c 30 0d 4c 45 54 | 20 45 51 55 41 4c 20 4d |E%,0.LET| EQUAL M|
|00001b70| 25 2c 30 0d 4c 45 54 20 | 45 51 55 41 4c 20 4a 25 |%,0.LET |EQUAL J%|
|00001b80| 2c 30 0d 4c 45 54 20 45 | 51 55 41 4c 20 4b 25 2c |,0.LET E|QUAL K%,|
|00001b90| 30 0d 0d 28 20 2a 2a 2a | 20 4f 70 65 6e 20 75 70 |0..( ***| Open up|
|00001ba0| 20 66 69 6c 65 73 20 2a | 2a 2a 0d 3a 53 45 4c 45 | files *|**.:SELE|
|00001bb0| 43 54 5f 46 49 4c 45 0d | 43 4f 50 59 49 4e 54 4f |CT_FILE.|COPYINTO|
|00001bc0| 20 40 32 2c 53 65 6c 65 | 63 74 20 66 69 6c 65 20 | @2,Sele|ct file |
|00001bd0| 74 6f 20 75 70 64 61 74 | 65 3a 0d 53 48 4f 57 40 |to updat|e:.SHOW@|
|00001be0| 0d 47 45 54 41 4c 4c 0d | 47 45 54 46 49 4c 45 20 |.GETALL.|GETFILE |
|00001bf0| 4f 24 0d 45 52 41 53 45 | 20 40 32 0d 53 48 4f 57 |O$.ERASE| @2.SHOW|
|00001c00| 40 0d 49 46 20 4e 4f 20 | 4a 55 4d 50 54 4f 20 41 |@.IF NO |JUMPTO A|
|00001c10| 42 4f 52 54 0d 0d 28 20 | 2a 2a 2a 20 43 68 65 63 |BORT..( |*** Chec|
|00001c20| 6b 20 66 6f 72 20 61 6c | 72 65 61 64 79 20 63 6f |k for al|ready co|
|00001c30| 6e 76 65 72 74 65 64 20 | 66 69 6c 65 20 2a 2a 2a |nverted |file ***|
|00001c40| 0d 45 52 41 53 45 20 4c | 24 0d 45 52 41 53 45 20 |.ERASE L|$.ERASE |
|00001c50| 4b 24 0d 55 53 45 52 4f | 50 45 4e 49 20 31 2c 4f |K$.USERO|PENI 1,O|
|00001c60| 24 0d 55 53 45 52 52 45 | 41 44 20 31 2c 4c 24 0d |$.USERRE|AD 1,L$.|
|00001c70| 55 53 45 52 43 4c 4f 53 | 45 20 31 0d 49 4e 53 54 |USERCLOS|E 1.INST|
|00001c80| 52 20 4c 25 2c 4c 24 2c | 31 2c 28 28 21 0d 54 45 |R L%,L$,|1,((!.TE|
|00001c90| 53 54 20 4c 25 20 3d 20 | 31 0d 49 46 20 4e 4f 20 |ST L% = |1.IF NO |
|00001ca0| 4a 55 4d 50 54 4f 20 4e | 4f 54 5f 43 4f 4e 56 45 |JUMPTO N|OT_CONVE|
|00001cb0| 52 54 45 44 0d 45 52 41 | 53 45 20 58 24 0d 43 4f |RTED.ERA|SE X$.CO|
|00001cc0| 50 59 49 4e 54 4f 20 59 | 24 2c 41 6c 72 65 61 64 |PYINTO Y|$,Alread|
|00001cd0| 79 20 63 6f 6e 76 65 72 | 74 65 64 20 66 69 6c 65 |y conver|ted file|
|00001ce0| 21 20 41 62 6f 72 74 69 | 6e 67 2e 2e 2e 0d 45 52 |! Aborti|ng....ER|
|00001cf0| 41 53 45 20 5a 24 0d 51 | 55 45 52 59 32 0d 45 4e |ASE Z$.Q|UERY2.EN|
|00001d00| 44 0d 3a 4e 4f 54 5f 43 | 4f 4e 56 45 52 54 45 44 |D.:NOT_C|ONVERTED|
|00001d10| 0d 0d 57 41 54 43 48 20 | 4f 4e 0d 43 4f 50 59 49 |..WATCH |ON.COPYI|
|00001d20| 4e 54 4f 20 49 24 2c 4f | 24 0d 43 4f 4e 43 41 54 |NTO I$,O|$.CONCAT|
|00001d30| 20 49 24 2c 2e 4f 4c 44 | 0d 52 45 4e 41 4d 45 20 | I$,.OLD|.RENAME |
|00001d40| 4f 24 2c 49 24 0d 43 4f | 50 59 49 4e 54 4f 20 46 |O$,I$.CO|PYINTO F|
|00001d50| 24 2c 4f 24 0d 47 4f 53 | 55 42 20 46 69 6c 65 6e |$,O$.GOS|UB Filen|
|00001d60| 61 6d 65 28 46 24 29 0d | 43 4f 50 59 49 4e 54 4f |ame(F$).|COPYINTO|
|00001d70| 20 40 32 2c 52 65 6e 61 | 6d 65 64 20 66 69 6c 65 | @2,Rena|med file|
|00001d80| 20 27 0d 43 4f 4e 43 41 | 54 20 40 32 2c 46 24 0d | '.CONCA|T @2,F$.|
|00001d90| 43 4f 4e 43 41 54 20 40 | 32 2c 27 20 74 6f 20 27 |CONCAT @|2,' to '|
|00001da0| 0d 43 4f 4e 43 41 54 20 | 40 32 2c 46 24 0d 43 4f |.CONCAT |@2,F$.CO|
|00001db0| 4e 43 41 54 20 40 32 2c | 2e 4f 4c 44 27 2e 2e 2e |NCAT @2,|.OLD'...|
|00001dc0| 0d 53 48 4f 57 40 0d 0d | 55 53 45 52 4f 50 45 4e |.SHOW@..|USEROPEN|
|00001dd0| 49 20 31 2c 49 24 0d 55 | 53 45 52 4f 50 45 4e 4f |I 1,I$.U|SEROPENO|
|00001de0| 20 32 2c 4f 24 0d 0d 57 | 41 54 43 48 20 4f 4e 0d | 2,O$..W|ATCH ON.|
|00001df0| 55 53 45 52 57 52 49 54 | 45 20 32 2c 28 28 21 20 |USERWRIT|E 2,((! |
|00001e00| 43 6f 6e 76 65 72 74 65 | 64 20 52 65 64 20 52 79 |Converte|d Red Ry|
|00001e10| 64 65 72 20 70 72 6f 63 | 65 64 75 72 65 20 75 73 |der proc|edure us|
|00001e20| 69 6e 67 20 27 46 69 78 | 20 66 6f 72 20 52 52 31 |ing 'Fix| for RR1|
|00001e30| 30 27 2c 20 76 65 72 73 | 69 6f 6e 20 0d 55 53 45 |0', vers|ion .USE|
|00001e40| 52 57 52 49 54 45 20 32 | 2c 56 24 0d 55 53 45 52 |RWRITE 2|,V$.USER|
|00001e50| 57 52 43 52 20 32 0d 55 | 53 45 52 57 52 43 52 20 |WRCR 2.U|SERWRCR |
|00001e60| 32 0d 53 41 56 45 54 49 | 4d 45 0d 0d 28 2d 2d 2d |2.SAVETI|ME..(---|
|00001e70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001eb0| 2d 2d 2d 0d 28 20 2a 2a | 2a 20 57 48 49 4c 45 20 |---.( **|* WHILE |
|00001ec0| 4e 4f 54 20 45 4f 46 28 | 31 29 20 2a 2a 2a 0d 3a |NOT EOF(|1) ***.:|
|00001ed0| 57 48 49 4c 45 0d 45 52 | 41 53 45 20 4b 24 0d 55 |WHILE.ER|ASE K$.U|
|00001ee0| 53 45 52 52 45 41 44 20 | 31 2c 4c 24 0d 49 46 20 |SERREAD |1,L$.IF |
|00001ef0| 45 52 52 4f 52 20 4a 55 | 4d 50 54 4f 20 45 58 49 |ERROR JU|MPTO EXI|
|00001f00| 54 57 48 49 4c 45 0d 0d | 28 20 2a 2a 2a 20 4e 6f |TWHILE..|( *** No|
|00001f10| 74 69 66 79 20 75 73 65 | 72 20 6f 66 20 70 72 6f |tify use|r of pro|
|00001f20| 67 72 65 73 73 2e 2e 2e | 73 6c 6f 77 20 74 68 6f |gress...|slow tho|
|00001f30| 75 67 68 20 69 74 20 6d | 61 79 20 62 65 2e 2e 2e |ugh it m|ay be...|
|00001f40| 0d 41 44 44 20 43 25 2c | 31 0d 4e 55 4d 54 4f 53 |.ADD C%,|1.NUMTOS|
|00001f50| 54 52 49 4e 47 20 43 25 | 2c 43 24 0d 43 4f 50 59 |TRING C%|,C$.COPY|
|00001f60| 49 4e 54 4f 20 40 31 2c | 50 72 6f 63 65 73 73 69 |INTO @1,|Processi|
|00001f70| 6e 67 20 6c 69 6e 65 20 | 23 0d 43 4f 4e 43 41 54 |ng line |#.CONCAT|
|00001f80| 20 40 31 2c 43 24 0d 43 | 4f 4e 43 41 54 20 40 31 | @1,C$.C|ONCAT @1|
|00001f90| 2c 2e 2e 2e 0d 53 48 4f | 57 40 0d 0d 28 20 2a 2a |,....SHO|W@..( **|
|00001fa0| 2a 20 53 6b 69 70 20 65 | 6d 70 74 79 20 6c 69 6e |* Skip e|mpty lin|
|00001fb0| 65 73 20 2a 2a 2a 0d 45 | 4d 50 54 59 20 4c 24 0d |es ***.E|MPTY L$.|
|00001fc0| 49 46 20 59 45 53 20 4a | 55 4d 50 54 4f 20 57 52 |IF YES J|UMPTO WR|
|00001fd0| 49 54 45 5f 52 45 53 55 | 4c 54 0d 0d 28 20 2a 2a |ITE_RESU|LT..( **|
|00001fe0| 2a 20 43 6f 6e 76 65 72 | 74 20 63 6f 6d 6d 65 6e |* Conver|t commen|
|00001ff0| 74 73 20 77 69 74 68 20 | 3c 3d 20 5a 25 20 63 68 |ts with |<= Z% ch|
|00002000| 61 72 61 63 74 65 72 73 | 20 74 6f 20 6c 61 62 65 |aracters| to labe|
|00002010| 6c 73 20 2a 2a 2a 0d 49 | 4e 53 54 52 20 4c 25 2c |ls ***.I|NSTR L%,|
|00002020| 4c 24 2c 31 2c 28 0d 54 | 45 53 54 20 4c 25 20 3d |L$,1,(.T|EST L% =|
|00002030| 20 31 0d 49 46 20 4e 4f | 20 4a 55 4d 50 54 4f 20 | 1.IF NO| JUMPTO |
|00002040| 45 4e 44 5f 43 4f 4d 4d | 45 4e 54 0d 4c 45 4e 47 |END_COMM|ENT.LENG|
|00002050| 54 48 20 4c 25 2c 4c 24 | 0d 54 45 53 54 20 4c 25 |TH L%,L$|.TEST L%|
|00002060| 20 3c 3d 20 5a 25 0d 49 | 46 20 4e 4f 20 4a 55 4d | <= Z%.I|F NO JUM|
|00002070| 50 54 4f 20 45 4e 44 5f | 43 4f 4d 4d 45 4e 54 0d |PTO END_|COMMENT.|
|00002080| 43 4f 50 59 49 4e 54 4f | 20 54 24 2c 3a 0d 43 4f |COPYINTO| T$,:.CO|
|00002090| 4e 43 41 54 20 54 24 2c | 4c 24 0d 43 4f 50 59 49 |NCAT T$,|L$.COPYI|
|000020a0| 4e 54 4f 20 4c 24 2c 54 | 24 0d 4a 55 4d 50 54 4f |NTO L$,T|$.JUMPTO|
|000020b0| 20 43 48 45 43 4b 5f 56 | 41 52 49 41 42 4c 45 53 | CHECK_V|ARIABLES|
|000020c0| 0d 3a 45 4e 44 5f 43 4f | 4d 4d 45 4e 54 0d 0d 3a |.:END_CO|MMENT..:|
|000020d0| 43 48 45 43 4b 5f 50 52 | 45 46 49 58 0d 43 4f 50 |CHECK_PR|EFIX.COP|
|000020e0| 59 49 4e 54 4f 20 54 24 | 2c 49 46 20 4e 4f 20 45 |YINTO T$|,IF NO E|
|000020f0| 52 52 4f 52 20 0d 47 4f | 53 55 42 20 47 45 54 5f |RROR .GO|SUB GET_|
|00002100| 50 52 45 46 49 58 28 54 | 24 2c 4b 24 2c 4c 24 29 |PREFIX(T|$,K$,L$)|
|00002110| 0d 49 46 20 59 45 53 20 | 4a 55 4d 50 54 4f 20 43 |.IF YES |JUMPTO C|
|00002120| 48 45 43 4b 5f 50 52 45 | 46 49 58 0d 43 4f 50 59 |HECK_PRE|FIX.COPY|
|00002130| 49 4e 54 4f 20 54 24 2c | 49 46 20 4e 4f 20 0d 47 |INTO T$,|IF NO .G|
|00002140| 4f 53 55 42 20 47 45 54 | 5f 50 52 45 46 49 58 28 |OSUB GET|_PREFIX(|
|00002150| 54 24 2c 4b 24 2c 4c 24 | 29 0d 49 46 20 59 45 53 |T$,K$,L$|).IF YES|
|00002160| 20 4a 55 4d 50 54 4f 20 | 43 48 45 43 4b 5f 50 52 | JUMPTO |CHECK_PR|
|00002170| 45 46 49 58 0d 43 4f 50 | 59 49 4e 54 4f 20 54 24 |EFIX.COP|YINTO T$|
|00002180| 2c 49 46 20 59 45 53 20 | 0d 47 4f 53 55 42 20 47 |,IF YES |.GOSUB G|
|00002190| 45 54 5f 50 52 45 46 49 | 58 28 54 24 2c 4b 24 2c |ET_PREFI|X(T$,K$,|
|000021a0| 4c 24 29 0d 49 46 20 59 | 45 53 20 4a 55 4d 50 54 |L$).IF Y|ES JUMPT|
|000021b0| 4f 20 43 48 45 43 4b 5f | 50 52 45 46 49 58 0d 43 |O CHECK_|PREFIX.C|
|000021c0| 4f 50 59 49 4e 54 4f 20 | 54 24 2c 49 46 20 45 52 |OPYINTO |T$,IF ER|
|000021d0| 52 4f 52 20 0d 47 4f 53 | 55 42 20 47 45 54 5f 50 |ROR .GOS|UB GET_P|
|000021e0| 52 45 46 49 58 28 54 24 | 2c 4b 24 2c 4c 24 29 0d |REFIX(T$|,K$,L$).|
|000021f0| 49 46 20 59 45 53 20 4a | 55 4d 50 54 4f 20 43 48 |IF YES J|UMPTO CH|
|00002200| 45 43 4b 5f 50 52 45 46 | 49 58 0d 43 4f 50 59 49 |ECK_PREF|IX.COPYI|
|00002210| 4e 54 4f 20 54 24 2c 4f | 4e 50 41 4e 49 43 20 0d |NTO T$,O|NPANIC .|
|00002220| 47 4f 53 55 42 20 47 45 | 54 5f 50 52 45 46 49 58 |GOSUB GE|T_PREFIX|
|00002230| 28 54 24 2c 4b 24 2c 4c | 24 29 0d 49 46 20 59 45 |(T$,K$,L|$).IF YE|
|00002240| 53 20 4a 55 4d 50 54 4f | 20 43 48 45 43 4b 5f 50 |S JUMPTO| CHECK_P|
|00002250| 52 45 46 49 58 0d 43 4f | 50 59 49 4e 54 4f 20 54 |REFIX.CO|PYINTO T|
|00002260| 24 2c 41 4c 45 52 54 0d | 47 4f 53 55 42 20 47 45 |$,ALERT.|GOSUB GE|
|00002270| 54 5f 50 52 45 46 49 58 | 28 54 24 2c 4b 24 2c 4c |T_PREFIX|(T$,K$,L|
|00002280| 24 29 0d 49 46 20 4e 4f | 20 4a 55 4d 50 54 4f 20 |$).IF NO| JUMPTO |
|00002290| 45 4e 44 5f 43 48 45 43 | 4b 5f 50 52 45 46 49 58 |END_CHEC|K_PREFIX|
|000022a0| 0d 49 4e 53 54 52 20 54 | 25 2c 4c 24 2c 31 2c 2f |.INSTR T|%,L$,1,/|
|000022b0| 0d 4c 45 46 54 24 20 54 | 24 2c 54 25 2c 4c 24 0d |.LEFT$ T|$,T%,L$.|
|000022c0| 43 4f 4e 43 41 54 20 4b | 24 2c 54 24 0d 4c 45 4e |CONCAT K|$,T$.LEN|
|000022d0| 47 54 48 20 4c 25 2c 4c | 24 0d 53 55 42 54 52 41 |GTH L%,L|$.SUBTRA|
|000022e0| 43 54 20 4c 25 2c 54 25 | 0d 52 49 47 48 54 24 20 |CT L%,T%|.RIGHT$ |
|000022f0| 54 24 2c 4c 25 2c 4c 24 | 0d 43 4f 50 59 49 4e 54 |T$,L%,L$|.COPYINT|
|00002300| 4f 20 4c 24 2c 54 24 0d | 4a 55 4d 50 54 4f 20 43 |O L$,T$.|JUMPTO C|
|00002310| 48 45 43 4b 5f 50 52 45 | 46 49 58 0d 3a 45 4e 44 |HECK_PRE|FIX.:END|
|00002320| 5f 43 48 45 43 4b 5f 50 | 52 45 46 49 58 0d 0d 28 |_CHECK_P|REFIX..(|
|00002330| 20 2a 2a 2a 20 43 68 65 | 63 6b 20 4a 55 4d 50 54 | *** Che|ck JUMPT|
|00002340| 4f 20 74 61 72 67 65 74 | 73 20 61 67 61 69 6e 73 |O target|s agains|
|00002350| 74 20 5a 25 20 6c 69 6d | 69 74 0d 49 4e 53 54 52 |t Z% lim|it.INSTR|
|00002360| 20 4c 25 2c 4c 24 2c 31 | 2c 4a 55 4d 50 54 4f 20 | L%,L$,1|,JUMPTO |
|00002370| 0d 54 45 53 54 20 4c 25 | 20 3e 20 30 0d 49 46 20 |.TEST L%| > 0.IF |
|00002380| 4e 4f 20 4a 55 4d 50 54 | 4f 20 45 4e 44 5f 4a 55 |NO JUMPT|O END_JU|
|00002390| 4d 50 54 4f 0d 4c 45 4e | 47 54 48 20 54 25 2c 4c |MPTO.LEN|GTH T%,L|
|000023a0| 24 0d 53 55 42 54 52 41 | 43 54 20 54 25 2c 4c 25 |$.SUBTRA|CT T%,L%|
|000023b0| 0d 53 55 42 54 52 41 43 | 54 20 54 25 2c 36 0d 54 |.SUBTRAC|T T%,6.T|
|000023c0| 45 53 54 20 54 25 20 3e | 20 5a 25 0d 49 46 20 4e |EST T% >| Z%.IF N|
|000023d0| 4f 20 4a 55 4d 50 54 4f | 20 45 4e 44 5f 4a 55 4d |O JUMPTO| END_JUM|
|000023e0| 50 54 4f 0d 41 44 44 20 | 4a 25 2c 31 0d 3a 45 4e |PTO.ADD |J%,1.:EN|
|000023f0| 44 5f 4a 55 4d 50 54 4f | 0d 0d 28 20 2a 2a 2a 20 |D_JUMPTO|..( *** |
|00002400| 43 6f 6e 76 65 72 74 20 | 50 41 55 53 45 20 77 69 |Convert |PAUSE wi|
|00002410| 74 68 20 6e 6f 20 70 61 | 72 61 6d 65 74 65 72 73 |th no pa|rameters|
|00002420| 20 74 6f 20 50 41 55 53 | 45 20 36 30 20 2a 2a 2a | to PAUS|E 60 ***|
|00002430| 0d 49 4e 53 54 52 20 4c | 25 2c 4c 24 2c 31 2c 50 |.INSTR L|%,L$,1,P|
|00002440| 41 55 53 45 0d 54 45 53 | 54 20 4c 25 20 3d 20 31 |AUSE.TES|T L% = 1|
|00002450| 0d 49 46 20 4e 4f 20 4a | 55 4d 50 54 4f 20 45 4e |.IF NO J|UMPTO EN|
|00002460| 44 5f 50 41 55 53 45 0d | 4c 45 4e 47 54 48 20 4c |D_PAUSE.|LENGTH L|
|00002470| 25 2c 4c 24 0d 54 45 53 | 54 20 4c 25 20 3d 20 35 |%,L$.TES|T L% = 5|
|00002480| 0d 49 46 20 4e 4f 20 4a | 55 4d 50 54 4f 20 45 4e |.IF NO J|UMPTO EN|
|00002490| 44 5f 50 41 55 53 45 0d | 43 4f 50 59 49 4e 54 4f |D_PAUSE.|COPYINTO|
|000024a0| 20 4c 24 2c 50 41 55 53 | 45 20 36 30 0d 4a 55 4d | L$,PAUS|E 60.JUM|
|000024b0| 50 54 4f 20 57 52 49 54 | 45 5f 52 45 53 55 4c 54 |PTO WRIT|E_RESULT|
|000024c0| 0d 3a 45 4e 44 5f 50 41 | 55 53 45 0d 0d 28 20 2a |.:END_PA|USE..( *|
|000024d0| 2a 2a 20 43 6f 6e 76 65 | 72 74 20 45 53 43 20 74 |** Conve|rt ESC t|
|000024e0| 6f 20 41 4c 54 20 2a 2a | 2a 0d 49 4e 53 54 52 20 |o ALT **|*.INSTR |
|000024f0| 4c 25 2c 4c 24 2c 31 2c | 45 53 43 20 0d 54 45 53 |L%,L$,1,|ESC .TES|
|00002500| 54 20 4c 25 20 3d 20 31 | 0d 49 46 20 4e 4f 20 4a |T L% = 1|.IF NO J|
|00002510| 55 4d 50 54 4f 20 45 4e | 44 5f 41 4c 54 0d 52 45 |UMPTO EN|D_ALT.RE|
|00002520| 50 4c 41 43 45 24 20 4c | 24 2c 31 2c 33 2c 41 4c |PLACE$ L|$,1,3,AL|
|00002530| 54 0d 3a 45 4e 44 5f 41 | 4c 54 0d 0d 28 20 2a 2a |T.:END_A|LT..( **|
|00002540| 2a 20 43 6f 6e 76 65 72 | 74 20 44 45 4c 20 74 6f |* Conver|t DEL to|
|00002550| 20 44 45 4c 4b 45 59 20 | 2a 2a 2a 0d 49 4e 53 54 | DELKEY |***.INST|
|00002560| 52 20 4c 25 2c 4c 24 2c | 31 2c 44 45 4c 20 0d 54 |R L%,L$,|1,DEL .T|
|00002570| 45 53 54 20 4c 25 20 3d | 20 31 0d 49 46 20 4e 4f |EST L% =| 1.IF NO|
|00002580| 20 4a 55 4d 50 54 4f 20 | 45 4e 44 5f 44 45 4c 4b | JUMPTO |END_DELK|
|00002590| 45 59 0d 52 45 50 4c 41 | 43 45 24 20 4c 24 2c 31 |EY.REPLA|CE$ L$,1|
|000025a0| 2c 33 2c 4b 45 59 0d 43 | 4f 50 59 49 4e 54 4f 20 |,3,KEY.C|OPYINTO |
|000025b0| 54 24 2c 44 45 4c 0d 43 | 4f 4e 43 41 54 20 54 24 |T$,DEL.C|ONCAT T$|
|000025c0| 2c 4c 24 0d 43 4f 50 59 | 49 4e 54 4f 20 4c 24 2c |,L$.COPY|INTO L$,|
|000025d0| 54 24 0d 3a 45 4e 44 5f | 44 45 4c 4b 45 59 0d 0d |T$.:END_|DELKEY..|
|000025e0| 28 20 2a 2a 2a 20 52 65 | 66 6f 72 6d 61 74 20 4d |( *** Re|format M|
|000025f0| 45 4e 55 44 4f 45 53 20 | 63 6f 6d 6d 61 6e 64 73 |ENUDOES |commands|
|00002600| 20 2a 2a 2a 0d 49 4e 53 | 54 52 20 4c 25 2c 4c 24 | ***.INS|TR L%,L$|
|00002610| 2c 31 2c 4d 45 4e 55 44 | 4f 45 53 0d 54 45 53 54 |,1,MENUD|OES.TEST|
|00002620| 20 4c 25 20 3d 20 31 0d | 49 46 20 4e 4f 20 4a 55 | L% = 1.|IF NO JU|
|00002630| 4d 50 54 4f 20 45 4e 44 | 5f 4d 45 4e 55 44 4f 45 |MPTO END|_MENUDOE|
|00002640| 53 0d 41 44 44 20 4d 25 | 2c 31 0d 43 4f 50 59 49 |S.ADD M%|,1.COPYI|
|00002650| 4e 54 4f 20 54 24 2c 4c | 24 0d 43 4f 50 59 49 4e |NTO T$,L|$.COPYIN|
|00002660| 54 4f 20 4c 24 2c 4d 45 | 4e 55 44 4f 45 53 20 0d |TO L$,ME|NUDOES .|
|00002670| 4d 49 44 24 20 55 24 2c | 39 2c 32 2c 54 24 0d 43 |MID$ U$,|9,2,T$.C|
|00002680| 4f 4e 43 41 54 20 4c 24 | 2c 55 24 0d 43 4f 4e 43 |ONCAT L$|,U$.CONC|
|00002690| 41 54 20 4c 24 2c 2c 5f | 5f 52 65 70 6c 61 63 65 |AT L$,,_|_Replace|
|000026a0| 5f 0d 4d 49 44 24 20 55 | 24 2c 31 32 2c 32 2c 54 |_.MID$ U|$,12,2,T|
|000026b0| 24 0d 43 4f 4e 43 41 54 | 20 4c 24 2c 55 24 0d 43 |$.CONCAT| L$,U$.C|
|000026c0| 4f 4e 43 41 54 20 4c 24 | 2c 5f 77 69 74 68 5f 61 |ONCAT L$|,_with_a|
|000026d0| 63 74 69 6f 6e 5f 66 72 | 6f 6d 5f 6d 61 63 72 6f |ction_fr|om_macro|
|000026e0| 5f 73 65 74 5f 5f 0d 3a | 45 4e 44 5f 4d 45 4e 55 |_set__.:|END_MENU|
|000026f0| 44 4f 45 53 0d 0d 28 20 | 2a 2a 2a 20 43 6f 6e 76 |DOES..( |*** Conv|
|00002700| 65 72 74 20 4d 45 4e 55 | 20 4f 46 46 20 74 6f 20 |ert MENU| OFF to |
|00002710| 4d 45 4e 55 4f 46 46 20 | 2a 2a 2a 0d 49 4e 53 54 |MENUOFF |***.INST|
|00002720| 52 20 4c 25 2c 4c 24 2c | 31 2c 4d 45 4e 55 20 4f |R L%,L$,|1,MENU O|
|00002730| 46 46 0d 54 45 53 54 20 | 4c 25 20 3d 20 31 0d 49 |FF.TEST |L% = 1.I|
|00002740| 46 20 4e 4f 20 4a 55 4d | 50 54 4f 20 45 4e 44 5f |F NO JUM|PTO END_|
|00002750| 4d 45 4e 55 4f 46 46 0d | 43 4f 50 59 49 4e 54 4f |MENUOFF.|COPYINTO|
|00002760| 20 4c 24 2c 4d 45 4e 55 | 4f 46 46 0d 4a 55 4d 50 | L$,MENU|OFF.JUMP|
|00002770| 54 4f 20 57 52 49 54 45 | 5f 52 45 53 55 4c 54 0d |TO WRITE|_RESULT.|
|00002780| 3a 45 4e 44 5f 4d 45 4e | 55 4f 46 46 0d 0d 28 20 |:END_MEN|UOFF..( |
|00002790| 2a 2a 2a 20 43 6f 6e 76 | 65 72 74 20 53 43 52 45 |*** Conv|ert SCRE|
|000027a0| 45 4e 43 4f 50 59 20 74 | 6f 20 53 43 52 45 45 4e |ENCOPY t|o SCREEN|
|000027b0| 50 52 49 4e 54 20 2a 2a | 2a 0d 49 4e 53 54 52 20 |PRINT **|*.INSTR |
|000027c0| 4c 25 2c 4c 24 2c 31 2c | 53 43 52 45 45 4e 43 4f |L%,L$,1,|SCREENCO|
|000027d0| 50 59 0d 54 45 53 54 20 | 4c 25 20 3d 20 31 0d 49 |PY.TEST |L% = 1.I|
|000027e0| 46 20 4e 4f 20 4a 55 4d | 50 54 4f 20 45 4e 44 5f |F NO JUM|PTO END_|
|000027f0| 53 43 52 45 45 4e 50 52 | 49 4e 54 0d 43 4f 50 59 |SCREENPR|INT.COPY|
|00002800| 49 4e 54 4f 20 4c 24 2c | 53 43 52 45 45 4e 50 52 |INTO L$,|SCREENPR|
|00002810| 49 4e 54 0d 4a 55 4d 50 | 54 4f 20 57 52 49 54 45 |INT.JUMP|TO WRITE|
|00002820| 5f 52 45 53 55 4c 54 0d | 3a 45 4e 44 5f 53 43 52 |_RESULT.|:END_SCR|
|00002830| 45 45 4e 50 52 49 4e 54 | 0d 0d 28 20 2a 2a 2a 20 |EENPRINT|..( *** |
|00002840| 43 6f 6e 76 65 72 74 20 | 43 55 52 53 4f 52 20 41 |Convert |CURSOR A|
|00002850| 20 74 6f 20 57 41 54 43 | 48 20 4f 4e 20 2a 2a 2a | to WATC|H ON ***|
|00002860| 0d 49 4e 53 54 52 20 4c | 25 2c 4c 24 2c 31 2c 43 |.INSTR L|%,L$,1,C|
|00002870| 55 52 53 4f 52 20 48 0d | 54 45 53 54 20 4c 25 20 |URSOR H.|TEST L% |
|00002880| 3d 20 31 0d 49 46 20 4e | 4f 20 4a 55 4d 50 54 4f |= 1.IF N|O JUMPTO|
|00002890| 20 45 4e 44 5f 57 41 54 | 43 48 5f 4f 4e 0d 43 4f | END_WAT|CH_ON.CO|
|000028a0| 50 59 49 4e 54 4f 20 4c | 24 2c 57 41 54 43 48 20 |PYINTO L|$,WATCH |
|000028b0| 4f 4e 0d 4a 55 4d 50 54 | 4f 20 57 52 49 54 45 5f |ON.JUMPT|O WRITE_|
|000028c0| 52 45 53 55 4c 54 0d 3a | 45 4e 44 5f 57 41 54 43 |RESULT.:|END_WATC|
|000028d0| 48 5f 4f 4e 0d 0d 28 20 | 2a 2a 2a 20 43 6f 6e 76 |H_ON..( |*** Conv|
|000028e0| 65 72 74 20 43 55 52 53 | 4f 52 20 41 20 74 6f 20 |ert CURS|OR A to |
|000028f0| 57 41 54 43 48 20 4f 46 | 46 20 2a 2a 2a 0d 49 4e |WATCH OF|F ***.IN|
|00002900| 53 54 52 20 4c 25 2c 4c | 24 2c 31 2c 43 55 52 53 |STR L%,L|$,1,CURS|
|00002910| 4f 52 20 41 0d 54 45 53 | 54 20 4c 25 20 3d 20 31 |OR A.TES|T L% = 1|
|00002920| 0d 49 46 20 4e 4f 20 4a | 55 4d 50 54 4f 20 45 4e |.IF NO J|UMPTO EN|
|00002930| 44 5f 57 41 54 43 48 5f | 4f 46 46 0d 43 4f 50 59 |D_WATCH_|OFF.COPY|
|00002940| 49 4e 54 4f 20 4c 24 2c | 57 41 54 43 48 20 4f 46 |INTO L$,|WATCH OF|
|00002950| 46 0d 4a 55 4d 50 54 4f | 20 57 52 49 54 45 5f 52 |F.JUMPTO| WRITE_R|
|00002960| 45 53 55 4c 54 0d 3a 45 | 4e 44 5f 57 41 54 43 48 |ESULT.:E|ND_WATCH|
|00002970| 5f 4f 46 46 0d 0d 28 20 | 2a 2a 2a 20 43 6f 6e 76 |_OFF..( |*** Conv|
|00002980| 65 72 74 20 54 45 53 54 | 20 63 6f 6d 6d 61 6e 64 |ert TEST| command|
|00002990| 20 2a 2a 2a 0d 28 2d 2d | 2d 20 54 45 53 54 20 60 | ***.(--|- TEST `|
|000029a0| 34 3d 35 0d 28 2d 2d 2d | 20 31 32 33 34 35 36 37 |4=5.(---| 1234567|
|000029b0| 38 39 20 31 32 33 34 35 | 36 37 38 39 0d 49 4e 53 |89 12345|6789.INS|
|000029c0| 54 52 20 4c 25 2c 4c 24 | 2c 31 2c 54 45 53 54 0d |TR L%,L$|,1,TEST.|
|000029d0| 54 45 53 54 20 4c 25 20 | 3d 20 31 0d 49 46 20 4e |TEST L% |= 1.IF N|
|000029e0| 4f 20 4a 55 4d 50 54 4f | 20 45 4e 44 5f 54 45 53 |O JUMPTO| END_TES|
|000029f0| 54 0d 43 4f 50 59 49 4e | 54 4f 20 54 24 2c 54 45 |T.COPYIN|TO T$,TE|
|00002a00| 53 54 20 0d 4d 49 44 24 | 20 55 24 2c 36 2c 32 2c |ST .MID$| U$,6,2,|
|00002a10| 4c 24 0d 43 4f 4e 43 41 | 54 20 54 24 2c 55 24 0d |L$.CONCA|T T$,U$.|
|00002a20| 43 4f 4e 43 41 54 20 54 | 24 2c 2c 0d 4d 49 44 24 |CONCAT T|$,,.MID$|
|00002a30| 20 55 24 2c 38 2c 31 2c | 4c 24 0d 43 4f 4e 43 41 | U$,8,1,|L$.CONCA|
|00002a40| 54 20 54 24 2c 55 24 0d | 43 4f 4e 43 41 54 20 54 |T T$,U$.|CONCAT T|
|00002a50| 24 2c 2c 0d 4d 49 44 24 | 20 55 24 2c 39 2c 32 2c |$,,.MID$| U$,9,2,|
|00002a60| 4c 24 0d 43 4f 4e 43 41 | 54 20 54 24 2c 55 24 0d |L$.CONCA|T T$,U$.|
|00002a70| 43 4f 50 59 49 4e 54 4f | 20 4c 24 2c 54 24 0d 3a |COPYINTO| L$,T$.:|
|00002a80| 45 4e 44 5f 54 45 53 54 | 0d 0d 28 20 2a 2a 2a 20 |END_TEST|..( *** |
|00002a90| 43 6f 6e 76 65 72 74 20 | 73 70 65 63 69 61 6c 20 |Convert |special |
|00002aa0| 4c 45 54 20 45 51 55 41 | 4c 20 63 61 73 65 20 74 |LET EQUA|L case t|
|00002ab0| 6f 20 53 54 52 49 4e 47 | 54 4f 4e 55 4d 20 2a 2a |o STRING|TONUM **|
|00002ac0| 2a 0d 28 2d 2d 2d 20 4c | 45 54 20 45 51 55 41 4c |*.(--- L|ET EQUAL|
|00002ad0| 20 60 30 2c 7e 31 0d 28 | 2d 2d 2d 20 31 32 33 34 | `0,~1.(|--- 1234|
|00002ae0| 35 36 37 38 39 20 31 32 | 33 34 35 36 37 38 39 0d |56789 12|3456789.|
|00002af0| 49 4e 53 54 52 20 4c 25 | 2c 4c 24 2c 31 2c 4c 45 |INSTR L%|,L$,1,LE|
|00002b00| 54 20 45 51 55 41 4c 0d | 54 45 53 54 20 4c 25 20 |T EQUAL.|TEST L% |
|00002b10| 3d 20 31 0d 49 46 20 4e | 4f 20 4a 55 4d 50 54 4f |= 1.IF N|O JUMPTO|
|00002b20| 20 45 4e 44 5f 53 54 52 | 49 4e 47 54 4f 4e 55 4d | END_STR|INGTONUM|
|00002b30| 0d 49 4e 53 54 52 20 4c | 25 2c 4c 24 2c 31 2c 7e |.INSTR L|%,L$,1,~|
|00002b40| 0d 54 45 53 54 20 4c 25 | 20 3d 20 31 34 0d 49 46 |.TEST L%| = 14.IF|
|00002b50| 20 4e 4f 20 4a 55 4d 50 | 54 4f 20 45 4e 44 5f 53 | NO JUMP|TO END_S|
|00002b60| 54 52 49 4e 47 54 4f 4e | 55 4d 0d 4c 45 4e 47 54 |TRINGTON|UM.LENGT|
|00002b70| 48 20 4c 25 2c 4c 24 0d | 54 45 53 54 20 4c 25 20 |H L%,L$.|TEST L% |
|00002b80| 3d 20 31 35 0d 49 46 20 | 4e 4f 20 4a 55 4d 50 54 |= 15.IF |NO JUMPT|
|00002b90| 4f 20 45 4e 44 5f 53 54 | 52 49 4e 47 54 4f 4e 55 |O END_ST|RINGTONU|
|00002ba0| 4d 0d 43 4f 50 59 49 4e | 54 4f 20 54 24 2c 53 54 |M.COPYIN|TO T$,ST|
|00002bb0| 52 49 4e 47 54 4f 4e 55 | 4d 20 0d 4d 49 44 24 20 |RINGTONU|M .MID$ |
|00002bc0| 55 24 2c 31 34 2c 32 2c | 4c 24 0d 43 4f 4e 43 41 |U$,14,2,|L$.CONCA|
|00002bd0| 54 20 54 24 2c 55 24 0d | 43 4f 4e 43 41 54 20 54 |T T$,U$.|CONCAT T|
|00002be0| 24 2c 2c 0d 4d 49 44 24 | 20 55 24 2c 31 31 2c 32 |$,,.MID$| U$,11,2|
|00002bf0| 2c 4c 24 0d 43 4f 4e 43 | 41 54 20 54 24 2c 55 24 |,L$.CONC|AT T$,U$|
|00002c00| 0d 43 4f 50 59 49 4e 54 | 4f 20 4c 24 2c 54 24 0d |.COPYINT|O L$,T$.|
|00002c10| 3a 45 4e 44 5f 53 54 52 | 49 4e 47 54 4f 4e 55 4d |:END_STR|INGTONUM|
|00002c20| 0d 0d 28 20 2a 2a 2a 20 | 43 6f 6e 76 65 72 74 20 |..( *** |Convert |
|00002c30| 73 70 65 63 69 61 6c 20 | 43 4f 50 59 49 4e 54 4f |special |COPYINTO|
|00002c40| 20 63 61 73 65 20 74 6f | 20 4e 55 4d 54 4f 53 54 | case to| NUMTOST|
|00002c50| 52 49 4e 47 20 2a 2a 2a | 0d 28 2d 2d 2d 20 43 4f |RING ***|.(--- CO|
|00002c60| 50 59 49 4e 54 4f 20 7e | 32 2c 60 33 0d 28 2d 2d |PYINTO ~|2,`3.(--|
|00002c70| 2d 20 31 32 33 34 35 36 | 37 38 39 20 31 32 33 34 |- 123456|789 1234|
|00002c80| 35 36 37 38 39 0d 49 4e | 53 54 52 20 4c 25 2c 4c |56789.IN|STR L%,L|
|00002c90| 24 2c 31 2c 43 4f 50 59 | 49 4e 54 4f 0d 54 45 53 |$,1,COPY|INTO.TES|
|00002ca0| 54 20 4c 25 20 3d 20 31 | 0d 49 46 20 4e 4f 20 4a |T L% = 1|.IF NO J|
|00002cb0| 55 4d 50 54 4f 20 45 4e | 44 5f 4e 55 4d 54 4f 53 |UMPTO EN|D_NUMTOS|
|00002cc0| 54 52 49 4e 47 0d 49 4e | 53 54 52 20 4c 25 2c 4c |TRING.IN|STR L%,L|
|00002cd0| 24 2c 31 2c 60 0d 54 45 | 53 54 20 4c 25 20 3d 20 |$,1,`.TE|ST L% = |
|00002ce0| 31 33 0d 49 46 20 4e 4f | 20 4a 55 4d 50 54 4f 20 |13.IF NO| JUMPTO |
|00002cf0| 45 4e 44 5f 4e 55 4d 54 | 4f 53 54 52 49 4e 47 0d |END_NUMT|OSTRING.|
|00002d00| 4c 45 4e 47 54 48 20 4c | 25 2c 4c 24 0d 54 45 53 |LENGTH L|%,L$.TES|
|00002d10| 54 20 4c 25 20 3d 20 31 | 34 0d 49 46 20 4e 4f 20 |T L% = 1|4.IF NO |
|00002d20| 4a 55 4d 50 54 4f 20 45 | 4e 44 5f 4e 55 4d 54 4f |JUMPTO E|ND_NUMTO|
|00002d30| 53 54 52 49 4e 47 0d 43 | 4f 50 59 49 4e 54 4f 20 |STRING.C|OPYINTO |
|00002d40| 54 24 2c 4e 55 4d 54 4f | 53 54 52 49 4e 47 20 0d |T$,NUMTO|STRING .|
|00002d50| 4d 49 44 24 20 55 24 2c | 31 33 2c 32 2c 4c 24 0d |MID$ U$,|13,2,L$.|
|00002d60| 43 4f 4e 43 41 54 20 54 | 24 2c 55 24 0d 43 4f 4e |CONCAT T|$,U$.CON|
|00002d70| 43 41 54 20 54 24 2c 2c | 0d 4d 49 44 24 20 55 24 |CAT T$,,|.MID$ U$|
|00002d80| 2c 31 30 2c 32 2c 4c 24 | 0d 43 4f 4e 43 41 54 20 |,10,2,L$|.CONCAT |
|00002d90| 54 24 2c 55 24 0d 43 4f | 50 59 49 4e 54 4f 20 4c |T$,U$.CO|PYINTO L|
|00002da0| 24 2c 54 24 0d 3a 45 4e | 44 5f 4e 55 4d 54 4f 53 |$,T$.:EN|D_NUMTOS|
|00002db0| 54 52 49 4e 47 0d 0d 28 | 20 2a 2a 2a 20 43 6f 6e |TRING..(| *** Con|
|00002dc0| 76 65 72 74 20 73 70 65 | 63 69 61 6c 20 63 61 73 |vert spe|cial cas|
|00002dd0| 65 20 6f 66 20 41 44 44 | 20 63 6f 6d 6d 61 6e 64 |e of ADD| command|
|00002de0| 20 2a 2a 2a 0d 28 2d 2d | 2d 20 41 44 44 20 60 36 | ***.(--|- ADD `6|
|00002df0| 2c 7e 37 0d 28 2d 2d 2d | 20 31 32 33 34 35 36 37 |,~7.(---| 1234567|
|00002e00| 38 39 20 31 32 33 34 35 | 36 37 38 39 0d 49 4e 53 |89 12345|6789.INS|
|00002e10| 54 52 20 4c 25 2c 4c 24 | 2c 31 2c 41 44 44 0d 54 |TR L%,L$|,1,ADD.T|
|00002e20| 45 53 54 20 4c 25 20 3d | 20 31 0d 49 46 20 4e 4f |EST L% =| 1.IF NO|
|00002e30| 20 4a 55 4d 50 54 4f 20 | 45 4e 44 5f 41 44 44 5f | JUMPTO |END_ADD_|
|00002e40| 53 54 52 0d 49 4e 53 54 | 52 20 4c 25 2c 4c 24 2c |STR.INST|R L%,L$,|
|00002e50| 31 2c 7e 0d 54 45 53 54 | 20 4c 25 20 3d 20 38 0d |1,~.TEST| L% = 8.|
|00002e60| 49 46 20 4e 4f 20 4a 55 | 4d 50 54 4f 20 45 4e 44 |IF NO JU|MPTO END|
|00002e70| 5f 41 44 44 5f 53 54 52 | 0d 4c 45 4e 47 54 48 20 |_ADD_STR|.LENGTH |
|00002e80| 4c 25 2c 4c 24 0d 54 45 | 53 54 20 4c 25 20 3d 20 |L%,L$.TE|ST L% = |
|00002e90| 39 0d 49 46 20 4e 4f 20 | 4a 55 4d 50 54 4f 20 45 |9.IF NO |JUMPTO E|
|00002ea0| 4e 44 5f 41 44 44 5f 53 | 54 52 0d 43 4f 50 59 49 |ND_ADD_S|TR.COPYI|
|00002eb0| 4e 54 4f 20 54 24 2c 4c | 24 0d 43 4f 50 59 49 4e |NTO T$,L|$.COPYIN|
|00002ec0| 54 4f 20 4c 24 2c 53 54 | 52 49 4e 47 54 4f 4e 55 |TO L$,ST|RINGTONU|
|00002ed0| 4d 20 0d 4d 49 44 24 20 | 55 24 2c 38 2c 32 2c 54 |M .MID$ |U$,8,2,T|
|00002ee0| 24 0d 43 4f 4e 43 41 54 | 20 4c 24 2c 55 24 0d 43 |$.CONCAT| L$,U$.C|
|00002ef0| 4f 4e 43 41 54 20 4c 24 | 2c 2c 4e 0d 43 4f 4e 43 |ONCAT L$|,,N.CONC|
|00002f00| 41 54 20 4c 24 2c 50 24 | 0d 47 4f 53 55 42 20 43 |AT L$,P$|.GOSUB C|
|00002f10| 6f 6e 76 65 72 74 5f 76 | 61 72 69 61 62 6c 65 73 |onvert_v|ariables|
|00002f20| 0d 4c 45 54 20 45 51 55 | 41 4c 20 54 25 2c 30 0d |.LET EQU|AL T%,0.|
|00002f30| 43 4f 4e 54 41 49 4e 53 | 20 4b 24 2c 41 4c 45 52 |CONTAINS| K$,ALER|
|00002f40| 54 0d 49 46 20 59 45 53 | 20 4c 45 54 20 45 51 55 |T.IF YES| LET EQU|
|00002f50| 41 4c 20 54 25 2c 31 0d | 43 4f 4e 54 41 49 4e 53 |AL T%,1.|CONTAINS|
|00002f60| 20 4b 24 2c 4f 4e 50 41 | 4e 49 43 0d 49 46 20 59 | K$,ONPA|NIC.IF Y|
|00002f70| 45 53 20 4c 45 54 20 45 | 51 55 41 4c 20 54 25 2c |ES LET E|QUAL T%,|
|00002f80| 31 0d 41 44 44 20 4b 25 | 2c 54 25 0d 47 4f 53 55 |1.ADD K%|,T%.GOSU|
|00002f90| 42 20 57 52 49 54 45 32 | 28 4b 24 2c 4c 24 29 0d |B WRITE2|(K$,L$).|
|00002fa0| 4c 45 46 54 24 20 4c 24 | 2c 37 2c 54 24 0d 43 4f |LEFT$ L$|,7,T$.CO|
|00002fb0| 4e 43 41 54 20 4c 24 2c | 4e 0d 43 4f 4e 43 41 54 |NCAT L$,|N.CONCAT|
|00002fc0| 20 4c 24 2c 50 24 0d 3a | 45 4e 44 5f 41 44 44 5f | L$,P$.:|END_ADD_|
|00002fd0| 53 54 52 0d 0d 28 20 2a | 2a 2a 20 43 6f 6e 76 65 |STR..( *|** Conve|
|00002fe0| 72 74 20 73 70 65 63 69 | 61 6c 20 63 61 73 65 20 |rt speci|al case |
|00002ff0| 6f 66 20 53 55 42 54 52 | 41 43 54 20 63 6f 6d 6d |of SUBTR|ACT comm|
|00003000| 61 6e 64 20 2a 2a 2a 0d | 28 2d 2d 2d 20 53 55 42 |and ***.|(--- SUB|
|00003010| 54 52 41 43 54 20 60 38 | 2c 7e 39 0d 28 2d 2d 2d |TRACT `8|,~9.(---|
|00003020| 20 31 32 33 34 35 36 37 | 38 39 20 31 32 33 34 35 | 1234567|89 12345|
|00003030| 36 37 38 39 0d 49 4e 53 | 54 52 20 4c 25 2c 4c 24 |6789.INS|TR L%,L$|
|00003040| 2c 31 2c 53 55 42 54 52 | 41 43 54 0d 54 45 53 54 |,1,SUBTR|ACT.TEST|
|00003050| 20 4c 25 20 3d 20 31 0d | 49 46 20 4e 4f 20 4a 55 | L% = 1.|IF NO JU|
|00003060| 4d 50 54 4f 20 45 4e 44 | 5f 53 55 42 54 52 41 43 |MPTO END|_SUBTRAC|
|00003070| 54 5f 53 54 52 0d 49 4e | 53 54 52 20 4c 25 2c 4c |T_STR.IN|STR L%,L|
|00003080| 24 2c 31 2c 7e 0d 54 45 | 53 54 20 4c 25 20 3d 20 |$,1,~.TE|ST L% = |
|00003090| 31 33 0d 49 46 20 4e 4f | 20 4a 55 4d 50 54 4f 20 |13.IF NO| JUMPTO |
|000030a0| 45 4e 44 5f 53 55 42 54 | 52 41 43 54 5f 53 54 52 |END_SUBT|RACT_STR|
|000030b0| 0d 4c 45 4e 47 54 48 20 | 4c 25 2c 4c 24 0d 54 45 |.LENGTH |L%,L$.TE|
|000030c0| 53 54 20 4c 25 20 3d 20 | 31 34 0d 49 46 20 4e 4f |ST L% = |14.IF NO|
|000030d0| 20 4a 55 4d 50 54 4f 20 | 45 4e 44 5f 53 55 42 54 | JUMPTO |END_SUBT|
|000030e0| 52 41 43 54 5f 53 54 52 | 0d 43 4f 50 59 49 4e 54 |RACT_STR|.COPYINT|
|000030f0| 4f 20 54 24 2c 4c 24 0d | 43 4f 50 59 49 4e 54 4f |O T$,L$.|COPYINTO|
|00003100| 20 4c 24 2c 53 54 52 49 | 4e 47 54 4f 4e 55 4d 20 | L$,STRI|NGTONUM |
|00003110| 0d 4d 49 44 24 20 55 24 | 2c 31 33 2c 32 2c 54 24 |.MID$ U$|,13,2,T$|
|00003120| 0d 43 4f 4e 43 41 54 20 | 4c 24 2c 55 24 0d 43 4f |.CONCAT |L$,U$.CO|
|00003130| 4e 43 41 54 20 4c 24 2c | 2c 4e 0d 43 4f 4e 43 41 |NCAT L$,|,N.CONCA|
|00003140| 54 20 4c 24 2c 50 24 0d | 47 4f 53 55 42 20 43 6f |T L$,P$.|GOSUB Co|
|00003150| 6e 76 65 72 74 5f 76 61 | 72 69 61 62 6c 65 73 0d |nvert_va|riables.|
|00003160| 4c 45 54 20 45 51 55 41 | 4c 20 54 25 2c 30 0d 43 |LET EQUA|L T%,0.C|
|00003170| 4f 4e 54 41 49 4e 53 20 | 4b 24 2c 41 4c 45 52 54 |ONTAINS |K$,ALERT|
|00003180| 0d 49 46 20 59 45 53 20 | 4c 45 54 20 45 51 55 41 |.IF YES |LET EQUA|
|00003190| 4c 20 54 25 2c 31 0d 43 | 4f 4e 54 41 49 4e 53 20 |L T%,1.C|ONTAINS |
|000031a0| 4b 24 2c 4f 4e 50 41 4e | 49 43 0d 49 46 20 59 45 |K$,ONPAN|IC.IF YE|
|000031b0| 53 20 4c 45 54 20 45 51 | 55 41 4c 20 54 25 2c 31 |S LET EQ|UAL T%,1|
|000031c0| 0d 41 44 44 20 4b 25 2c | 54 25 0d 47 4f 53 55 42 |.ADD K%,|T%.GOSUB|
|000031d0| 20 57 52 49 54 45 32 28 | 4b 24 2c 4c 24 29 0d 4c | WRITE2(|K$,L$).L|
|000031e0| 45 46 54 24 20 4c 24 2c | 31 32 2c 54 24 0d 43 4f |EFT$ L$,|12,T$.CO|
|000031f0| 4e 43 41 54 20 4c 24 2c | 4e 0d 43 4f 4e 43 41 54 |NCAT L$,|N.CONCAT|
|00003200| 20 4c 24 2c 50 24 0d 3a | 45 4e 44 5f 53 55 42 54 | L$,P$.:|END_SUBT|
|00003210| 52 41 43 54 5f 53 54 52 | 0d 0d 28 20 2a 2a 2a 20 |RACT_STR|..( *** |
|00003220| 43 6f 6e 76 65 72 74 20 | 73 70 65 63 69 61 6c 20 |Convert |special |
|00003230| 63 61 73 65 20 6f 66 20 | 54 45 53 54 20 63 6f 6d |case of |TEST com|
|00003240| 6d 61 6e 64 20 2a 2a 2a | 0d 28 2d 2d 2d 20 54 45 |mand ***|.(--- TE|
|00003250| 53 54 20 60 30 2c 3d 2c | 7e 31 0d 28 2d 2d 2d 20 |ST `0,=,|~1.(--- |
|00003260| 31 32 33 34 35 36 37 38 | 39 20 31 32 33 34 35 36 |12345678|9 123456|
|00003270| 37 38 39 0d 49 4e 53 54 | 52 20 4c 25 2c 4c 24 2c |789.INST|R L%,L$,|
|00003280| 31 2c 54 45 53 54 0d 54 | 45 53 54 20 4c 25 20 3d |1,TEST.T|EST L% =|
|00003290| 20 31 0d 49 46 20 4e 4f | 20 4a 55 4d 50 54 4f 20 | 1.IF NO| JUMPTO |
|000032a0| 45 4e 44 5f 54 45 53 54 | 5f 53 54 52 0d 49 4e 53 |END_TEST|_STR.INS|
|000032b0| 54 52 20 4c 25 2c 4c 24 | 2c 31 2c 7e 0d 54 45 53 |TR L%,L$|,1,~.TES|
|000032c0| 54 20 4c 25 20 3d 20 31 | 31 0d 49 46 20 4e 4f 20 |T L% = 1|1.IF NO |
|000032d0| 4a 55 4d 50 54 4f 20 45 | 4e 44 5f 54 45 53 54 5f |JUMPTO E|ND_TEST_|
|000032e0| 53 54 52 0d 4c 45 4e 47 | 54 48 20 4c 25 2c 4c 24 |STR.LENG|TH L%,L$|
|000032f0| 0d 54 45 53 54 20 4c 25 | 20 3d 20 31 32 0d 49 46 |.TEST L%| = 12.IF|
|00003300| 20 4e 4f 20 4a 55 4d 50 | 54 4f 20 45 4e 44 5f 54 | NO JUMP|TO END_T|
|00003310| 45 53 54 5f 53 54 52 0d | 43 4f 50 59 49 4e 54 4f |EST_STR.|COPYINTO|
|00003320| 20 54 24 2c 4c 24 0d 43 | 4f 50 59 49 4e 54 4f 20 | T$,L$.C|OPYINTO |
|00003330| 4c 24 2c 53 54 52 49 4e | 47 54 4f 4e 55 4d 20 0d |L$,STRIN|GTONUM .|
|00003340| 4d 49 44 24 20 55 24 2c | 31 31 2c 32 2c 54 24 0d |MID$ U$,|11,2,T$.|
|00003350| 43 4f 4e 43 41 54 20 4c | 24 2c 55 24 0d 43 4f 4e |CONCAT L|$,U$.CON|
|00003360| 43 41 54 20 4c 24 2c 2c | 4e 0d 43 4f 4e 43 41 54 |CAT L$,,|N.CONCAT|
|00003370| 20 4c 24 2c 50 24 0d 47 | 4f 53 55 42 20 43 6f 6e | L$,P$.G|OSUB Con|
|00003380| 76 65 72 74 5f 76 61 72 | 69 61 62 6c 65 73 0d 4c |vert_var|iables.L|
|00003390| 45 54 20 45 51 55 41 4c | 20 54 25 2c 30 0d 43 4f |ET EQUAL| T%,0.CO|
|000033a0| 4e 54 41 49 4e 53 20 4b | 24 2c 41 4c 45 52 54 0d |NTAINS K|$,ALERT.|
|000033b0| 49 46 20 59 45 53 20 4c | 45 54 20 45 51 55 41 4c |IF YES L|ET EQUAL|
|000033c0| 20 54 25 2c 31 0d 43 4f | 4e 54 41 49 4e 53 20 4b | T%,1.CO|NTAINS K|
|000033d0| 24 2c 4f 4e 50 41 4e 49 | 43 0d 49 46 20 59 45 53 |$,ONPANI|C.IF YES|
|000033e0| 20 4c 45 54 20 45 51 55 | 41 4c 20 54 25 2c 31 0d | LET EQU|AL T%,1.|
|000033f0| 43 4f 4e 54 41 49 4e 53 | 20 4b 24 2c 49 46 20 59 |CONTAINS| K$,IF Y|
|00003400| 45 53 0d 49 46 20 59 45 | 53 20 4c 45 54 20 45 51 |ES.IF YE|S LET EQ|
|00003410| 55 41 4c 20 54 25 2c 31 | 0d 43 4f 4e 54 41 49 4e |UAL T%,1|.CONTAIN|
|00003420| 53 20 4b 24 2c 49 46 20 | 4e 4f 0d 49 46 20 59 45 |S K$,IF |NO.IF YE|
|00003430| 53 20 4c 45 54 20 45 51 | 55 41 4c 20 54 25 2c 31 |S LET EQ|UAL T%,1|
|00003440| 0d 41 44 44 20 4b 25 2c | 54 25 0d 47 4f 53 55 42 |.ADD K%,|T%.GOSUB|
|00003450| 20 57 52 49 54 45 32 28 | 4b 24 2c 4c 24 29 0d 4c | WRITE2(|K$,L$).L|
|00003460| 45 46 54 24 20 4c 24 2c | 31 30 2c 54 24 0d 43 4f |EFT$ L$,|10,T$.CO|
|00003470| 4e 43 41 54 20 4c 24 2c | 4e 0d 43 4f 4e 43 41 54 |NCAT L$,|N.CONCAT|
|00003480| 20 4c 24 2c 50 24 0d 3a | 45 4e 44 5f 54 45 53 54 | L$,P$.:|END_TEST|
|00003490| 5f 53 54 52 0d 0d 3a 43 | 48 45 43 4b 5f 56 41 52 |_STR..:C|HECK_VAR|
|000034a0| 49 41 42 4c 45 53 0d 47 | 4f 53 55 42 20 43 6f 6e |IABLES.G|OSUB Con|
|000034b0| 76 65 72 74 5f 76 61 72 | 69 61 62 6c 65 73 0d 0d |vert_var|iables..|
|000034c0| 3a 57 52 49 54 45 5f 52 | 45 53 55 4c 54 0d 47 4f |:WRITE_R|ESULT.GO|
|000034d0| 53 55 42 20 57 52 49 54 | 45 32 28 4b 24 2c 4c 24 |SUB WRIT|E2(K$,L$|
|000034e0| 29 0d 4a 55 4d 50 54 4f | 20 57 48 49 4c 45 0d 0d |).JUMPTO| WHILE..|
|000034f0| 3a 45 58 49 54 57 48 49 | 4c 45 0d 28 2d 2d 2d 2d |:EXITWHI|LE.(----|
|00003500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003540| 2d 2d 0d 45 4c 41 50 53 | 45 44 20 52 25 0d 4c 45 |--.ELAPS|ED R%.LE|
|00003550| 54 20 45 51 55 41 4c 20 | 54 25 2c 52 25 0d 44 49 |T EQUAL |T%,R%.DI|
|00003560| 56 49 44 45 20 54 25 2c | 43 25 0d 4e 55 4d 54 4f |VIDE T%,|C%.NUMTO|
|00003570| 53 54 52 49 4e 47 20 54 | 25 2c 54 24 0d 0d 28 20 |STRING T|%,T$..( |
|00003580| 2a 2a 2a 20 43 6c 6f 73 | 65 20 75 70 20 66 69 6c |*** Clos|e up fil|
|00003590| 65 73 20 61 6e 64 20 63 | 6f 6d 70 69 6c 65 20 28 |es and c|ompile (|
|000035a0| 69 66 20 70 6f 73 73 69 | 62 6c 65 29 20 2a 2a 2a |if possi|ble) ***|
|000035b0| 0d 43 4f 50 59 49 4e 54 | 4f 20 40 31 2c 43 6c 6f |.COPYINT|O @1,Clo|
|000035c0| 73 69 6e 67 20 75 70 2e | 2e 2e 0d 43 4f 50 59 49 |sing up.|...COPYI|
|000035d0| 4e 54 4f 20 40 32 2c 43 | 24 0d 43 4f 4e 43 41 54 |NTO @2,C|$.CONCAT|
|000035e0| 20 40 32 2c 20 6c 69 6e | 65 73 20 61 74 20 0d 43 | @2, lin|es at .C|
|000035f0| 4f 4e 43 41 54 20 40 32 | 2c 54 24 0d 43 4f 4e 43 |ONCAT @2|,T$.CONC|
|00003600| 41 54 20 40 32 2c 20 73 | 65 63 73 2f 6c 69 6e 65 |AT @2, s|ecs/line|
|00003610| 0d 53 48 4f 57 40 0d 55 | 53 45 52 43 4c 4f 53 45 |.SHOW@.U|SERCLOSE|
|00003620| 20 31 0d 55 53 45 52 43 | 4c 4f 53 45 20 32 0d 0d | 1.USERC|LOSE 2..|
|00003630| 28 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |(-------|--------|
|00003640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003660| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003670| 2d 2d 2d 2d 2d 2d 2d 0d | 28 20 44 4c 4f 47 20 31 |-------.|( DLOG 1|
|00003680| 30 30 31 0d 28 20 20 20 | 31 09 42 74 6e 49 74 65 |001.(   |1.BtnIte|
|00003690| 6d 20 45 6e 61 62 6c 65 | 64 0d 28 20 20 20 32 09 |m Enable|d.(   2.|
|000036a0| 42 74 6e 49 74 65 6d 20 | 45 6e 61 62 6c 65 64 0d |BtnItem |Enabled.|
|000036b0| 28 20 20 20 33 09 53 74 | 61 74 54 65 78 74 20 45 |(   3.St|atText E|
|000036c0| 6e 61 62 6c 65 64 09 47 | 6f 20 74 6f 20 65 64 69 |nabled.G|o to edi|
|000036d0| 74 6f 72 20 61 6e 64 20 | 66 69 78 20 70 72 6f 62 |tor and |fix prob|
|000036e0| 6c 65 6d 73 c9 0d 28 20 | 20 20 34 09 53 74 61 74 |lems..( |  4.Stat|
|000036f0| 54 65 78 74 20 45 6e 61 | 62 6c 65 64 09 43 6f 6e |Text Ena|bled.Con|
|00003700| 74 69 6e 75 65 20 69 6e | 73 70 69 74 65 20 6f 66 |tinue in|spite of|
|00003710| 20 70 72 6f 62 6c 65 6d | 73 0d 28 20 20 20 35 09 | problem|s.(   5.|
|00003720| 53 74 61 74 54 65 78 74 | 20 45 6e 61 62 6c 65 64 |StatText| Enabled|
|00003730| 09 57 24 3d 4e 4f 0d 28 | 20 20 20 36 09 53 74 61 |.W$=NO.(|   6.Sta|
|00003740| 74 54 65 78 74 20 45 6e | 61 62 6c 65 64 09 58 24 |tText En|abled.X$|
|00003750| 3d 4e 4f 0d 28 20 20 20 | 37 09 53 74 61 74 54 65 |=NO.(   |7.StatTe|
|00003760| 78 74 20 45 6e 61 62 6c | 65 64 09 59 24 3d 4e 4f |xt Enabl|ed.Y$=NO|
|00003770| 0d 28 20 20 20 38 09 53 | 74 61 74 54 65 78 74 20 |.(   8.S|tatText |
|00003780| 45 6e 61 62 6c 65 64 09 | 5a 24 3d 4e 4f 0d 28 20 |Enabled.|Z$=NO.( |
|00003790| 20 20 39 20 09 53 74 61 | 74 54 65 78 74 20 45 6e |  9 .Sta|tText En|
|000037a0| 61 62 6c 65 64 09 6c 69 | 6e 65 73 20 74 68 61 74 |abled.li|nes that|
|000037b0| 20 65 78 63 65 65 64 20 | 37 39 20 63 68 61 72 73 | exceed |79 chars|
|000037c0| 2e 0d 28 20 20 20 31 30 | 09 53 74 61 74 54 65 78 |..(   10|.StatTex|
|000037d0| 74 20 45 6e 61 62 6c 65 | 64 09 63 61 73 65 73 20 |t Enable|d.cases |
|000037e0| 6f 66 20 41 4c 45 52 54 | 2c 20 4f 4e 50 41 4e 49 |of ALERT|, ONPANI|
|000037f0| 43 20 6f 72 20 49 46 20 | 63 6d 64 27 73 20 77 69 |C or IF |cmd's wi|
|00003800| 74 68 c9 0d 28 20 20 20 | 31 31 09 53 74 61 74 54 |th..(   |11.StatT|
|00003810| 65 78 74 20 45 6e 61 62 | 6c 65 64 09 63 61 73 65 |ext Enab|led.case|
|00003820| 73 20 6f 66 20 4a 55 4d | 50 54 4f 20 6c 61 62 65 |s of JUM|PTO labe|
|00003830| 6c 73 20 67 72 65 61 74 | 65 72 20 74 68 61 6e 20 |ls great|er than |
|00003840| 4c 24 20 63 68 61 72 c9 | 0d 28 20 20 20 31 32 09 |L$ char.|.(   12.|
|00003850| 53 74 61 74 54 65 78 74 | 20 45 6e 61 62 6c 65 64 |StatText| Enabled|
|00003860| 09 63 61 73 65 73 20 6f | 66 20 4d 45 4e 55 44 4f |.cases o|f MENUDO|
|00003870| 45 53 20 63 6f 6d 6d 61 | 6e 64 73 20 74 68 61 74 |ES comma|nds that|
|00003880| 20 49 20 61 6d 20 75 6e | 61 62 6c 65 c9 0d 28 20 | I am un|able..( |
|00003890| 20 20 31 33 09 49 63 6f | 6e 49 74 65 6d 20 45 6e |  13.Ico|nItem En|
|000038a0| 61 62 6c 65 64 09 41 6c | 65 72 74 21 0d 28 2d 2d |abled.Al|ert!.(--|
|000038b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000038c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000038d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000038e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000038f0| 2d 2d 2d 2d 0d 0d 43 4f | 50 59 49 4e 54 4f 20 57 |----..CO|PYINTO W|
|00003900| 24 2c 4e 6f 0d 54 45 53 | 54 20 4b 25 20 3e 20 30 |$,No.TES|T K% > 0|
|00003910| 0d 49 46 20 4e 4f 20 4a | 55 4d 50 54 4f 20 4e 4f |.IF NO J|UMPTO NO|
|00003920| 5f 50 41 4e 49 43 2f 41 | 4c 45 52 54 0d 43 4f 50 |_PANIC/A|LERT.COP|
|00003930| 59 49 4e 54 4f 20 40 31 | 2c 50 52 4f 42 4c 45 4d |YINTO @1|,PROBLEM|
|00003940| 2e 2e 2e 0d 53 48 4f 57 | 40 0d 4e 55 4d 54 4f 53 |....SHOW|@.NUMTOS|
|00003950| 54 52 49 4e 47 20 4b 25 | 2c 57 24 0d 3a 4e 4f 5f |TRING K%|,W$.:NO_|
|00003960| 50 41 4e 49 43 2f 41 4c | 45 52 54 0d 0d 43 4f 50 |PANIC/AL|ERT..COP|
|00003970| 59 49 4e 54 4f 20 58 24 | 2c 4e 6f 0d 4e 55 4d 54 |YINTO X$|,No.NUMT|
|00003980| 4f 53 54 52 49 4e 47 20 | 5a 25 2c 4c 24 0d 54 45 |OSTRING |Z%,L$.TE|
|00003990| 53 54 20 4a 25 20 3e 20 | 30 0d 49 46 20 4e 4f 20 |ST J% > |0.IF NO |
|000039a0| 4a 55 4d 50 54 4f 20 4e | 4f 5f 4a 55 4d 50 54 4f |JUMPTO N|O_JUMPTO|
|000039b0| 0d 43 4f 50 59 49 4e 54 | 4f 20 40 31 2c 50 52 4f |.COPYINT|O @1,PRO|
|000039c0| 42 4c 45 4d 2e 2e 2e 0d | 4e 55 4d 54 4f 53 54 52 |BLEM....|NUMTOSTR|
|000039d0| 49 4e 47 20 4a 25 2c 58 | 24 0d 3a 4e 4f 5f 4a 55 |ING J%,X|$.:NO_JU|
|000039e0| 4d 50 54 4f 0d 0d 43 4f | 50 59 49 4e 54 4f 20 59 |MPTO..CO|PYINTO Y|
|000039f0| 24 2c 4e 6f 0d 54 45 53 | 54 20 4d 25 20 3e 20 30 |$,No.TES|T M% > 0|
|00003a00| 0d 49 46 20 4e 4f 20 4a | 55 4d 50 54 4f 20 4e 4f |.IF NO J|UMPTO NO|
|00003a10| 5f 4d 45 4e 55 44 4f 45 | 53 0d 43 4f 50 59 49 4e |_MENUDOE|S.COPYIN|
|00003a20| 54 4f 20 40 31 2c 50 52 | 4f 42 4c 45 4d 2e 2e 2e |TO @1,PR|OBLEM...|
|00003a30| 0d 4e 55 4d 54 4f 53 54 | 52 49 4e 47 20 4d 25 2c |.NUMTOST|RING M%,|
|00003a40| 59 24 0d 3a 4e 4f 5f 4d | 45 4e 55 44 4f 45 53 0d |Y$.:NO_M|ENUDOES.|
|00003a50| 0d 43 4f 50 59 49 4e 54 | 4f 20 5a 24 2c 4e 6f 0d |.COPYINT|O Z$,No.|
|00003a60| 54 45 53 54 20 45 25 20 | 3e 20 30 0d 49 46 20 4e |TEST E% |> 0.IF N|
|00003a70| 4f 20 4a 55 4d 50 54 4f | 20 4e 4f 5f 45 58 43 45 |O JUMPTO| NO_EXCE|
|00003a80| 45 44 53 0d 43 4f 50 59 | 49 4e 54 4f 20 40 31 2c |EDS.COPY|INTO @1,|
|00003a90| 50 52 4f 42 4c 45 4d 2e | 2e 2e 0d 4e 55 4d 54 4f |PROBLEM.|...NUMTO|
|00003aa0| 53 54 52 49 4e 47 20 45 | 25 2c 5a 24 0d 3a 4e 4f |STRING E|%,Z$.:NO|
|00003ab0| 5f 45 58 43 45 45 44 53 | 0d 0d 53 48 4f 57 40 0d |_EXCEEDS|..SHOW@.|
|00003ac0| 53 48 45 4c 4c 20 42 25 | 2c 31 30 30 31 0d 54 45 |SHELL B%|,1001.TE|
|00003ad0| 53 54 20 42 25 20 3d 20 | 31 0d 49 46 20 59 45 53 |ST B% = |1.IF YES|
|00003ae0| 20 4a 55 4d 50 54 4f 20 | 43 4f 4d 50 49 4c 45 0d | JUMPTO |COMPILE.|
|00003af0| 0d 43 4f 50 59 49 4e 54 | 4f 20 40 31 2c 53 65 6c |.COPYINT|O @1,Sel|
|00003b00| 65 63 74 20 61 70 70 6c | 69 63 61 74 69 6f 6e 20 |ect appl|ication |
|00003b10| 74 6f 20 65 78 69 74 20 | 74 6f 3a 0d 53 48 4f 57 |to exit |to:.SHOW|
|00003b20| 40 0d 47 45 54 53 45 4c | 45 43 54 20 41 50 50 4c |@.GETSEL|ECT APPL|
|00003b30| 0d 47 45 54 46 49 4c 45 | 20 41 24 0d 49 46 20 4e |.GETFILE| A$.IF N|
|00003b40| 4f 20 4a 55 4d 50 54 4f | 20 43 4f 4d 50 49 4c 45 |O JUMPTO| COMPILE|
|00003b50| 0d 43 4f 50 59 49 4e 54 | 4f 20 40 31 2c 45 78 69 |.COPYINT|O @1,Exi|
|00003b60| 74 69 6e 67 20 52 65 64 | 20 52 79 64 65 72 20 74 |ting Red| Ryder t|
|00003b70| 6f 20 0d 43 4f 4e 43 41 | 54 20 40 31 2c 41 24 0d |o .CONCA|T @1,A$.|
|00003b80| 43 4f 4e 43 41 54 20 40 | 31 2c 2e 2e 2e 0d 53 48 |CONCAT @|1,....SH|
|00003b90| 4f 57 40 0d 41 54 54 41 | 43 48 20 54 45 58 54 2c |OW@.ATTA|CH TEXT,|
|00003ba0| 4f 24 0d 52 55 4e 20 41 | 24 0d 0d 3a 43 4f 4d 50 |O$.RUN A|$..:COMP|
|00003bb0| 49 4c 45 0d 43 4f 50 59 | 49 4e 54 4f 20 58 24 2c |ILE.COPY|INTO X$,|
|00003bc0| 43 6f 6d 70 69 6c 65 20 | 0d 43 4f 4e 43 41 54 20 |Compile |.CONCAT |
|00003bd0| 58 24 2c 46 24 0d 43 4f | 4e 43 41 54 20 58 24 2c |X$,F$.CO|NCAT X$,|
|00003be0| 3f 0d 51 55 45 52 59 34 | 0d 49 46 20 4e 4f 20 45 |?.QUERY4|.IF NO E|
|00003bf0| 4e 44 0d 43 4f 50 59 49 | 4e 54 4f 20 40 31 2c 43 |ND.COPYI|NTO @1,C|
|00003c00| 6f 6d 70 69 6c 69 6e 67 | 20 0d 43 4f 4e 43 41 54 |ompiling| .CONCAT|
|00003c10| 20 40 31 2c 46 24 0d 43 | 4f 4e 43 41 54 20 40 31 | @1,F$.C|ONCAT @1|
|00003c20| 2c 2e 2e 2e 0d 53 48 4f | 57 40 0d 43 4f 4d 50 49 |,....SHO|W@.COMPI|
|00003c30| 4c 45 20 4c 4f 55 44 20 | 4f 24 0d 45 4e 44 0d 0d |LE LOUD |O$.END..|
|00003c40| 3a 41 42 4f 52 54 0d 40 | 20 4f 46 46 0d 45 4e 44 |:ABORT.@| OFF.END|
|00003c50| 0d 28 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.(******|********|
|00003c60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003c70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003c80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003c90| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 28 2a 20 20 20 20 20 |********|.(*     |
|00003ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003cd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2a |        |       *|
|00003ce0| 0d 28 2a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.(*     |        |
|00003cf0| 20 20 20 20 20 20 45 45 | 45 45 45 45 20 20 4e 4e |      EE|EEEE  NN|
|00003d00| 20 20 20 20 4e 4e 20 20 | 44 44 44 44 44 20 20 20 |    NN  |DDDDD   |
|00003d10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003d20| 20 20 20 20 20 20 20 2a | 0d 28 2a 20 20 20 20 20 |       *|.(*     |
|00003d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 45 |        |      EE|
|00003d40| 20 20 20 20 20 20 4e 4e | 4e 4e 20 20 4e 4e 20 20 |      NN|NN  NN  |
|00003d50| 44 44 20 20 44 44 20 20 | 20 20 20 20 20 20 20 20 |DD  DD  |        |
|00003d60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2a |        |       *|
|00003d70| 0d 28 2a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.(*     |        |
|00003d80| 20 20 20 20 20 20 45 45 | 45 45 45 45 20 20 4e 4e |      EE|EEEE  NN|
|00003d90| 20 4e 4e 20 4e 4e 20 20 | 44 44 20 20 20 44 44 20 | NN NN  |DD   DD |
|00003da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003db0| 20 20 20 20 20 20 20 2a | 0d 28 2a 20 20 20 20 20 |       *|.(*     |
|00003dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 45 |        |      EE|
|00003dd0| 20 20 20 20 20 20 4e 4e | 20 20 4e 4e 4e 4e 20 20 |      NN|  NNNN  |
|00003de0| 44 44 20 20 44 44 20 20 | 20 20 20 20 20 20 20 20 |DD  DD  |        |
|00003df0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2a |        |       *|
|00003e00| 0d 28 2a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.(*     |        |
|00003e10| 20 20 20 20 20 20 45 45 | 45 45 45 45 20 20 4e 4e |      EE|EEEE  NN|
|00003e20| 20 20 20 20 4e 4e 20 20 | 44 44 44 44 44 20 20 20 |    NN  |DDDDD   |
|00003e30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003e40| 20 20 20 20 20 20 20 2a | 0d 28 2a 20 20 20 20 20 |       *|.(*     |
|00003e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003e70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2a |        |       *|
|00003e90| 0d 28 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.(******|********|
|00003ea0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003eb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003ec0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003ed0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 0d 3a 46 69 6c 65 6e |********|..:Filen|
|00003ee0| 61 6d 65 28 46 24 29 0d | 28 2a 2a 2a 2a 2a 2a 2a |ame(F$).|(*******|
|00003ef0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003f00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003f10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003f20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00003f30| 28 20 50 55 52 50 4f 53 | 45 3a 09 45 78 74 72 61 |( PURPOS|E:.Extra|
|00003f40| 63 74 20 66 69 6c 65 6e | 61 6d 65 20 66 72 6f 6d |ct filen|ame from|
|00003f50| 20 61 20 70 61 74 68 6e | 61 6d 65 0d 28 20 49 4e | a pathn|ame.( IN|
|00003f60| 50 55 54 53 3a 09 46 24 | 20 3d 20 70 61 74 68 6e |PUTS:.F$| = pathn|
|00003f70| 61 6d 65 0d 28 20 4f 55 | 54 50 55 54 53 3a 09 46 |ame.( OU|TPUTS:.F|
|00003f80| 24 20 3d 20 66 69 6c 65 | 6e 61 6d 65 0d 28 20 41 |$ = file|name.( A|
|00003f90| 46 46 45 43 54 53 3a 09 | 46 25 2c 20 54 25 0d 28 |FFECTS:.|F%, T%.(|
|00003fa0| 20 45 58 41 4d 50 4c 45 | 3a 09 43 4f 50 59 49 4e | EXAMPLE|:.COPYIN|
|00003fb0| 54 4f 20 46 24 2c 4d 59 | 44 49 53 4b 3a 4d 59 46 |TO F$,MY|DISK:MYF|
|00003fc0| 4f 4c 44 45 52 3a 4d 59 | 46 49 4c 45 0d 28 09 09 |OLDER:MY|FILE.(..|
|00003fd0| 47 4f 53 55 42 20 46 69 | 6c 65 6e 61 6d 65 0d 28 |GOSUB Fi|lename.(|
|00003fe0| 09 09 28 20 46 24 20 6e | 6f 77 20 63 6f 6e 74 61 |..( F$ n|ow conta|
|00003ff0| 69 6e 73 20 4d 59 46 49 | 4c 45 0d 28 2a 2a 2a 2a |ins MYFI|LE.(****|
|00004000| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004040| 2a 2a 0d 28 0d 43 4f 4e | 54 41 49 4e 53 20 46 24 |**.(.CON|TAINS F$|
|00004050| 2c 3a 0d 49 46 20 4e 4f | 20 52 45 54 55 52 4e 0d |,:.IF NO| RETURN.|
|00004060| 28 0d 4c 45 54 20 45 51 | 55 41 4c 20 54 25 2c 30 |(.LET EQ|UAL T%,0|
|00004070| 0d 3a 46 69 6c 65 6e 61 | 6d 65 3a 4c 6f 6f 70 0d |.:Filena|me:Loop.|
|00004080| 41 44 44 20 54 25 2c 31 | 0d 4c 45 54 20 45 51 55 |ADD T%,1|.LET EQU|
|00004090| 41 4c 20 46 25 2c 54 25 | 0d 49 4e 53 54 52 20 54 |AL F%,T%|.INSTR T|
|000040a0| 25 2c 46 24 2c 46 25 2c | 3a 0d 54 45 53 54 20 54 |%,F$,F%,|:.TEST T|
|000040b0| 25 20 3d 20 30 0d 49 46 | 20 4e 4f 20 4a 55 4d 50 |% = 0.IF| NO JUMP|
|000040c0| 54 4f 20 46 69 6c 65 6e | 61 6d 65 3a 4c 6f 6f 70 |TO Filen|ame:Loop|
|000040d0| 0d 28 0d 4c 45 4e 47 54 | 48 20 54 25 2c 46 24 0d |.(.LENGT|H T%,F$.|
|000040e0| 53 55 42 54 52 41 43 54 | 20 54 25 2c 46 25 0d 41 |SUBTRACT| T%,F%.A|
|000040f0| 44 44 20 54 25 2c 31 0d | 52 49 47 48 54 24 20 46 |DD T%,1.|RIGHT$ F|
|00004100| 24 2c 54 25 2c 46 24 0d | 52 45 54 55 52 4e 0d 0d |$,T%,F$.|RETURN..|
|00004110| 3a 43 6f 6e 76 65 72 74 | 5f 76 61 72 69 61 62 6c |:Convert|_variabl|
|00004120| 65 73 0d 28 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |es.(****|********|
|00004130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004140| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004150| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004160| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 28 20 50 55 52 |********|**.( PUR|
|00004170| 50 4f 53 45 3a 09 43 6f | 6e 76 65 72 74 20 76 61 |POSE:.Co|nvert va|
|00004180| 72 69 61 62 6c 65 73 20 | 74 6f 20 6e 65 77 20 52 |riables |to new R|
|00004190| 52 31 30 20 73 79 6e 74 | 61 78 0d 28 20 49 4e 50 |R10 synt|ax.( INP|
|000041a0| 55 54 53 3a 09 4c 24 20 | 3d 20 6c 69 6e 65 0d 28 |UTS:.L$ |= line.(|
|000041b0| 20 4f 55 54 50 55 54 53 | 3a 09 4c 24 20 3d 20 6c | OUTPUTS|:.L$ = l|
|000041c0| 69 6e 65 0d 28 20 41 46 | 46 45 43 54 53 3a 09 4c |ine.( AF|FECTS:.L|
|000041d0| 25 0d 28 20 45 58 41 4d | 50 4c 45 3a 09 43 4f 50 |%.( EXAM|PLE:.COP|
|000041e0| 59 49 4e 54 4f 20 4c 24 | 2c 7e 30 20 60 30 20 74 |YINTO L$|,~0 `0 t|
|000041f0| 68 72 75 20 7e 39 20 60 | 39 0d 28 09 09 47 4f 53 |hru ~9 `|9.(..GOS|
|00004200| 55 42 20 43 6f 6e 76 65 | 72 74 5f 76 61 72 69 61 |UB Conve|rt_varia|
|00004210| 62 6c 65 73 0d 28 09 09 | 28 20 4c 24 20 6e 6f 77 |bles.(..|( L$ now|
|00004220| 20 63 6f 6e 74 61 69 6e | 73 20 51 24 20 51 25 20 | contain|s Q$ Q% |
|00004230| 74 68 72 75 20 5a 24 20 | 5a 25 0d 28 2a 2a 2a 2a |thru Z$ |Z%.(****|
|00004240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004270| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004280| 2a 2a 0d 28 0d 49 4e 53 | 54 52 20 4c 25 2c 4c 24 |**.(.INS|TR L%,L$|
|00004290| 2c 31 2c 7e 39 0d 54 45 | 53 54 20 4c 25 20 3d 20 |,1,~9.TE|ST L% = |
|000042a0| 30 0d 49 46 20 59 45 53 | 20 4a 55 4d 50 54 4f 20 |0.IF YES| JUMPTO |
|000042b0| 45 4e 44 5f 7e 39 0d 52 | 45 50 4c 41 43 45 24 20 |END_~9.R|EPLACE$ |
|000042c0| 4c 24 2c 4c 25 2c 31 2c | 5a 0d 41 44 44 20 4c 25 |L$,L%,1,|Z.ADD L%|
|000042d0| 2c 31 0d 52 45 50 4c 41 | 43 45 24 20 4c 24 2c 4c |,1.REPLA|CE$ L$,L|
|000042e0| 25 2c 31 2c 44 24 0d 3a | 45 4e 44 5f 7e 39 0d 28 |%,1,D$.:|END_~9.(|
|000042f0| 0d 49 4e 53 54 52 20 4c | 25 2c 4c 24 2c 31 2c 7e |.INSTR L|%,L$,1,~|
|00004300| 38 0d 54 45 53 54 20 4c | 25 20 3d 20 30 0d 49 46 |8.TEST L|% = 0.IF|
|00004310| 20 59 45 53 20 4a 55 4d | 50 54 4f 20 45 4e 44 5f | YES JUM|PTO END_|
|00004320| 7e 38 0d 52 45 50 4c 41 | 43 45 24 20 4c 24 2c 4c |~8.REPLA|CE$ L$,L|
|00004330| 25 2c 31 2c 59 0d 41 44 | 44 20 4c 25 2c 31 0d 52 |%,1,Y.AD|D L%,1.R|
|00004340| 45 50 4c 41 43 45 24 20 | 4c 24 2c 4c 25 2c 31 2c |EPLACE$ |L$,L%,1,|
|00004350| 44 24 0d 3a 45 4e 44 5f | 7e 38 0d 28 0d 49 4e 53 |D$.:END_|~8.(.INS|
|00004360| 54 52 20 4c 25 2c 4c 24 | 2c 31 2c 7e 37 0d 54 45 |TR L%,L$|,1,~7.TE|
|00004370| 53 54 20 4c 25 20 3d 20 | 30 0d 49 46 20 59 45 53 |ST L% = |0.IF YES|
|00004380| 20 4a 55 4d 50 54 4f 20 | 45 4e 44 5f 7e 37 0d 52 | JUMPTO |END_~7.R|
|00004390| 45 50 4c 41 43 45 24 20 | 4c 24 2c 4c 25 2c 31 2c |EPLACE$ |L$,L%,1,|
|000043a0| 58 0d 41 44 44 20 4c 25 | 2c 31 0d 52 45 50 4c 41 |X.ADD L%|,1.REPLA|
|000043b0| 43 45 24 20 4c 24 2c 4c | 25 2c 31 2c 44 24 0d 3a |CE$ L$,L|%,1,D$.:|
|000043c0| 45 4e 44 5f 7e 37 0d 28 | 0d 49 4e 53 54 52 20 4c |END_~7.(|.INSTR L|
|000043d0| 25 2c 4c 24 2c 31 2c 7e | 36 0d 54 45 53 54 20 4c |%,L$,1,~|6.TEST L|
|000043e0| 25 20 3d 20 30 0d 49 46 | 20 59 45 53 20 4a 55 4d |% = 0.IF| YES JUM|
|000043f0| 50 54 4f 20 45 4e 44 5f | 7e 36 0d 52 45 50 4c 41 |PTO END_|~6.REPLA|
|00004400| 43 45 24 20 4c 24 2c 4c | 25 2c 31 2c 57 0d 41 44 |CE$ L$,L|%,1,W.AD|
|00004410| 44 20 4c 25 2c 31 0d 52 | 45 50 4c 41 43 45 24 20 |D L%,1.R|EPLACE$ |
|00004420| 4c 24 2c 4c 25 2c 31 2c | 44 24 0d 3a 45 4e 44 5f |L$,L%,1,|D$.:END_|
|00004430| 7e 36 0d 28 0d 49 4e 53 | 54 52 20 4c 25 2c 4c 24 |~6.(.INS|TR L%,L$|
|00004440| 2c 31 2c 7e 35 0d 54 45 | 53 54 20 4c 25 20 3d 20 |,1,~5.TE|ST L% = |
|00004450| 30 0d 49 46 20 59 45 53 | 20 4a 55 4d 50 54 4f 20 |0.IF YES| JUMPTO |
|00004460| 45 4e 44 5f 7e 35 0d 52 | 45 50 4c 41 43 45 24 20 |END_~5.R|EPLACE$ |
|00004470| 4c 24 2c 4c 25 2c 31 2c | 56 0d 41 44 44 20 4c 25 |L$,L%,1,|V.ADD L%|
|00004480| 2c 31 0d 52 45 50 4c 41 | 43 45 24 20 4c 24 2c 4c |,1.REPLA|CE$ L$,L|
|00004490| 25 2c 31 2c 44 24 0d 3a | 45 4e 44 5f 7e 35 0d 28 |%,1,D$.:|END_~5.(|
|000044a0| 0d 49 4e 53 54 52 20 4c | 25 2c 4c 24 2c 31 2c 7e |.INSTR L|%,L$,1,~|
|000044b0| 34 0d 54 45 53 54 20 4c | 25 20 3d 20 30 0d 49 46 |4.TEST L|% = 0.IF|
|000044c0| 20 59 45 53 20 4a 55 4d | 50 54 4f 20 45 4e 44 5f | YES JUM|PTO END_|
|000044d0| 7e 34 0d 52 45 50 4c 41 | 43 45 24 20 4c 24 2c 4c |~4.REPLA|CE$ L$,L|
|000044e0| 25 2c 31 2c 55 0d 41 44 | 44 20 4c 25 2c 31 0d 52 |%,1,U.AD|D L%,1.R|
|000044f0| 45 50 4c 41 43 45 24 20 | 4c 24 2c 4c 25 2c 31 2c |EPLACE$ |L$,L%,1,|
|00004500| 44 24 0d 3a 45 4e 44 5f | 7e 34 0d 28 0d 49 4e 53 |D$.:END_|~4.(.INS|
|00004510| 54 52 20 4c 25 2c 4c 24 | 2c 31 2c 7e 33 0d 54 45 |TR L%,L$|,1,~3.TE|
|00004520| 53 54 20 4c 25 20 3d 20 | 30 0d 49 46 20 59 45 53 |ST L% = |0.IF YES|
|00004530| 20 4a 55 4d 50 54 4f 20 | 45 4e 44 5f 7e 33 0d 52 | JUMPTO |END_~3.R|
|00004540| 45 50 4c 41 43 45 24 20 | 4c 24 2c 4c 25 2c 31 2c |EPLACE$ |L$,L%,1,|
|00004550| 54 0d 41 44 44 20 4c 25 | 2c 31 0d 52 45 50 4c 41 |T.ADD L%|,1.REPLA|
|00004560| 43 45 24 20 4c 24 2c 4c | 25 2c 31 2c 44 24 0d 3a |CE$ L$,L|%,1,D$.:|
|00004570| 45 4e 44 5f 7e 33 0d 28 | 0d 49 4e 53 54 52 20 4c |END_~3.(|.INSTR L|
|00004580| 25 2c 4c 24 2c 31 2c 7e | 32 0d 54 45 53 54 20 4c |%,L$,1,~|2.TEST L|
|00004590| 25 20 3d 20 30 0d 49 46 | 20 59 45 53 20 4a 55 4d |% = 0.IF| YES JUM|
|000045a0| 50 54 4f 20 45 4e 44 5f | 7e 32 0d 52 45 50 4c 41 |PTO END_|~2.REPLA|
|000045b0| 43 45 24 20 4c 24 2c 4c | 25 2c 31 2c 53 0d 41 44 |CE$ L$,L|%,1,S.AD|
|000045c0| 44 20 4c 25 2c 31 0d 52 | 45 50 4c 41 43 45 24 20 |D L%,1.R|EPLACE$ |
|000045d0| 4c 24 2c 4c 25 2c 31 2c | 44 24 0d 3a 45 4e 44 5f |L$,L%,1,|D$.:END_|
|000045e0| 7e 32 0d 28 0d 49 4e 53 | 54 52 20 4c 25 2c 4c 24 |~2.(.INS|TR L%,L$|
|000045f0| 2c 31 2c 7e 31 0d 54 45 | 53 54 20 4c 25 20 3d 20 |,1,~1.TE|ST L% = |
|00004600| 30 0d 49 46 20 59 45 53 | 20 4a 55 4d 50 54 4f 20 |0.IF YES| JUMPTO |
|00004610| 45 4e 44 5f 7e 31 0d 52 | 45 50 4c 41 43 45 24 20 |END_~1.R|EPLACE$ |
|00004620| 4c 24 2c 4c 25 2c 31 2c | 52 0d 41 44 44 20 4c 25 |L$,L%,1,|R.ADD L%|
|00004630| 2c 31 0d 52 45 50 4c 41 | 43 45 24 20 4c 24 2c 4c |,1.REPLA|CE$ L$,L|
|00004640| 25 2c 31 2c 44 24 0d 3a | 45 4e 44 5f 7e 31 0d 28 |%,1,D$.:|END_~1.(|
|00004650| 0d 49 4e 53 54 52 20 4c | 25 2c 4c 24 2c 31 2c 7e |.INSTR L|%,L$,1,~|
|00004660| 30 0d 54 45 53 54 20 4c | 25 20 3d 20 30 0d 49 46 |0.TEST L|% = 0.IF|
|00004670| 20 59 45 53 20 4a 55 4d | 50 54 4f 20 45 4e 44 5f | YES JUM|PTO END_|
|00004680| 7e 30 0d 52 45 50 4c 41 | 43 45 24 20 4c 24 2c 4c |~0.REPLA|CE$ L$,L|
|00004690| 25 2c 31 2c 51 0d 41 44 | 44 20 4c 25 2c 31 0d 52 |%,1,Q.AD|D L%,1.R|
|000046a0| 45 50 4c 41 43 45 24 20 | 4c 24 2c 4c 25 2c 31 2c |EPLACE$ |L$,L%,1,|
|000046b0| 44 24 0d 3a 45 4e 44 5f | 7e 30 0d 28 0d 49 4e 53 |D$.:END_|~0.(.INS|
|000046c0| 54 52 20 4c 25 2c 4c 24 | 2c 31 2c 60 39 0d 54 45 |TR L%,L$|,1,`9.TE|
|000046d0| 53 54 20 4c 25 20 3d 20 | 30 0d 49 46 20 59 45 53 |ST L% = |0.IF YES|
|000046e0| 20 4a 55 4d 50 54 4f 20 | 45 4e 44 5f 60 39 0d 52 | JUMPTO |END_`9.R|
|000046f0| 45 50 4c 41 43 45 24 20 | 4c 24 2c 4c 25 2c 31 2c |EPLACE$ |L$,L%,1,|
|00004700| 5a 0d 41 44 44 20 4c 25 | 2c 31 0d 52 45 50 4c 41 |Z.ADD L%|,1.REPLA|
|00004710| 43 45 24 20 4c 24 2c 4c | 25 2c 31 2c 50 24 0d 3a |CE$ L$,L|%,1,P$.:|
|00004720| 45 4e 44 5f 60 39 0d 28 | 0d 49 4e 53 54 52 20 4c |END_`9.(|.INSTR L|
|00004730| 25 2c 4c 24 2c 31 2c 60 | 38 0d 54 45 53 54 20 4c |%,L$,1,`|8.TEST L|
|00004740| 25 20 3d 20 30 0d 49 46 | 20 59 45 53 20 4a 55 4d |% = 0.IF| YES JUM|
|00004750| 50 54 4f 20 45 4e 44 5f | 60 38 0d 52 45 50 4c 41 |PTO END_|`8.REPLA|
|00004760| 43 45 24 20 4c 24 2c 4c | 25 2c 31 2c 59 0d 41 44 |CE$ L$,L|%,1,Y.AD|
|00004770| 44 20 4c 25 2c 31 0d 52 | 45 50 4c 41 43 45 24 20 |D L%,1.R|EPLACE$ |
|00004780| 4c 24 2c 4c 25 2c 31 2c | 50 24 0d 3a 45 4e 44 5f |L$,L%,1,|P$.:END_|
|00004790| 60 38 0d 28 0d 49 4e 53 | 54 52 20 4c 25 2c 4c 24 |`8.(.INS|TR L%,L$|
|000047a0| 2c 31 2c 60 37 0d 54 45 | 53 54 20 4c 25 20 3d 20 |,1,`7.TE|ST L% = |
|000047b0| 30 0d 49 46 20 59 45 53 | 20 4a 55 4d 50 54 4f 20 |0.IF YES| JUMPTO |
|000047c0| 45 4e 44 5f 60 37 0d 52 | 45 50 4c 41 43 45 24 20 |END_`7.R|EPLACE$ |
|000047d0| 4c 24 2c 4c 25 2c 31 2c | 58 0d 41 44 44 20 4c 25 |L$,L%,1,|X.ADD L%|
|000047e0| 2c 31 0d 52 45 50 4c 41 | 43 45 24 20 4c 24 2c 4c |,1.REPLA|CE$ L$,L|
|000047f0| 25 2c 31 2c 50 24 0d 3a | 45 4e 44 5f 60 37 0d 28 |%,1,P$.:|END_`7.(|
|00004800| 0d 49 4e 53 54 52 20 4c | 25 2c 4c 24 2c 31 2c 60 |.INSTR L|%,L$,1,`|
|00004810| 36 0d 54 45 53 54 20 4c | 25 20 3d 20 30 0d 49 46 |6.TEST L|% = 0.IF|
|00004820| 20 59 45 53 20 4a 55 4d | 50 54 4f 20 45 4e 44 5f | YES JUM|PTO END_|
|00004830| 60 36 0d 52 45 50 4c 41 | 43 45 24 20 4c 24 2c 4c |`6.REPLA|CE$ L$,L|
|00004840| 25 2c 31 2c 57 0d 41 44 | 44 20 4c 25 2c 31 0d 52 |%,1,W.AD|D L%,1.R|
|00004850| 45 50 4c 41 43 45 24 20 | 4c 24 2c 4c 25 2c 31 2c |EPLACE$ |L$,L%,1,|
|00004860| 50 24 0d 3a 45 4e 44 5f | 60 36 0d 28 0d 49 4e 53 |P$.:END_|`6.(.INS|
|00004870| 54 52 20 4c 25 2c 4c 24 | 2c 31 2c 60 35 0d 54 45 |TR L%,L$|,1,`5.TE|
|00004880| 53 54 20 4c 25 20 3d 20 | 30 0d 49 46 20 59 45 53 |ST L% = |0.IF YES|
|00004890| 20 4a 55 4d 50 54 4f 20 | 45 4e 44 5f 60 35 0d 52 | JUMPTO |END_`5.R|
|000048a0| 45 50 4c 41 43 45 24 20 | 4c 24 2c 4c 25 2c 31 2c |EPLACE$ |L$,L%,1,|
|000048b0| 56 0d 41 44 44 20 4c 25 | 2c 31 0d 52 45 50 4c 41 |V.ADD L%|,1.REPLA|
|000048c0| 43 45 24 20 4c 24 2c 4c | 25 2c 31 2c 50 24 0d 3a |CE$ L$,L|%,1,P$.:|
|000048d0| 45 4e 44 5f 60 35 0d 28 | 0d 49 4e 53 54 52 20 4c |END_`5.(|.INSTR L|
|000048e0| 25 2c 4c 24 2c 31 2c 60 | 34 0d 54 45 53 54 20 4c |%,L$,1,`|4.TEST L|
|000048f0| 25 20 3d 20 30 0d 49 46 | 20 59 45 53 20 4a 55 4d |% = 0.IF| YES JUM|
|00004900| 50 54 4f 20 45 4e 44 5f | 60 34 0d 52 45 50 4c 41 |PTO END_|`4.REPLA|
|00004910| 43 45 24 20 4c 24 2c 4c | 25 2c 31 2c 55 0d 41 44 |CE$ L$,L|%,1,U.AD|
|00004920| 44 20 4c 25 2c 31 0d 52 | 45 50 4c 41 43 45 24 20 |D L%,1.R|EPLACE$ |
|00004930| 4c 24 2c 4c 25 2c 31 2c | 50 24 0d 3a 45 4e 44 5f |L$,L%,1,|P$.:END_|
|00004940| 60 34 0d 28 0d 49 4e 53 | 54 52 20 4c 25 2c 4c 24 |`4.(.INS|TR L%,L$|
|00004950| 2c 31 2c 60 33 0d 54 45 | 53 54 20 4c 25 20 3d 20 |,1,`3.TE|ST L% = |
|00004960| 30 0d 49 46 20 59 45 53 | 20 4a 55 4d 50 54 4f 20 |0.IF YES| JUMPTO |
|00004970| 45 4e 44 5f 60 33 0d 52 | 45 50 4c 41 43 45 24 20 |END_`3.R|EPLACE$ |
|00004980| 4c 24 2c 4c 25 2c 31 2c | 54 0d 41 44 44 20 4c 25 |L$,L%,1,|T.ADD L%|
|00004990| 2c 31 0d 52 45 50 4c 41 | 43 45 24 20 4c 24 2c 4c |,1.REPLA|CE$ L$,L|
|000049a0| 25 2c 31 2c 50 24 0d 3a | 45 4e 44 5f 60 33 0d 28 |%,1,P$.:|END_`3.(|
|000049b0| 0d 49 4e 53 54 52 20 4c | 25 2c 4c 24 2c 31 2c 60 |.INSTR L|%,L$,1,`|
|000049c0| 32 0d 54 45 53 54 20 4c | 25 20 3d 20 30 0d 49 46 |2.TEST L|% = 0.IF|
|000049d0| 20 59 45 53 20 4a 55 4d | 50 54 4f 20 45 4e 44 5f | YES JUM|PTO END_|
|000049e0| 60 32 0d 52 45 50 4c 41 | 43 45 24 20 4c 24 2c 4c |`2.REPLA|CE$ L$,L|
|000049f0| 25 2c 31 2c 53 0d 41 44 | 44 20 4c 25 2c 31 0d 52 |%,1,S.AD|D L%,1.R|
|00004a00| 45 50 4c 41 43 45 24 20 | 4c 24 2c 4c 25 2c 31 2c |EPLACE$ |L$,L%,1,|
|00004a10| 50 24 0d 3a 45 4e 44 5f | 60 32 0d 28 0d 49 4e 53 |P$.:END_|`2.(.INS|
|00004a20| 54 52 20 4c 25 2c 4c 24 | 2c 31 2c 60 31 0d 54 45 |TR L%,L$|,1,`1.TE|
|00004a30| 53 54 20 4c 25 20 3d 20 | 30 0d 49 46 20 59 45 53 |ST L% = |0.IF YES|
|00004a40| 20 4a 55 4d 50 54 4f 20 | 45 4e 44 5f 60 31 0d 52 | JUMPTO |END_`1.R|
|00004a50| 45 50 4c 41 43 45 24 20 | 4c 24 2c 4c 25 2c 31 2c |EPLACE$ |L$,L%,1,|
|00004a60| 52 0d 41 44 44 20 4c 25 | 2c 31 0d 52 45 50 4c 41 |R.ADD L%|,1.REPLA|
|00004a70| 43 45 24 20 4c 24 2c 4c | 25 2c 31 2c 50 24 0d 3a |CE$ L$,L|%,1,P$.:|
|00004a80| 45 4e 44 5f 60 31 0d 28 | 0d 49 4e 53 54 52 20 4c |END_`1.(|.INSTR L|
|00004a90| 25 2c 4c 24 2c 31 2c 60 | 30 0d 54 45 53 54 20 4c |%,L$,1,`|0.TEST L|
|00004aa0| 25 20 3d 20 30 0d 49 46 | 20 59 45 53 20 4a 55 4d |% = 0.IF| YES JUM|
|00004ab0| 50 54 4f 20 45 4e 44 5f | 60 30 0d 52 45 50 4c 41 |PTO END_|`0.REPLA|
|00004ac0| 43 45 24 20 4c 24 2c 4c | 25 2c 31 2c 51 0d 41 44 |CE$ L$,L|%,1,Q.AD|
|00004ad0| 44 20 4c 25 2c 31 0d 52 | 45 50 4c 41 43 45 24 20 |D L%,1.R|EPLACE$ |
|00004ae0| 4c 24 2c 4c 25 2c 31 2c | 50 24 0d 3a 45 4e 44 5f |L$,L%,1,|P$.:END_|
|00004af0| 60 30 0d 28 0d 52 45 54 | 55 52 4e 0d 0d 3a 47 45 |`0.(.RET|URN..:GE|
|00004b00| 54 5f 50 52 45 46 49 58 | 28 54 24 2c 4b 24 2c 4c |T_PREFIX|(T$,K$,L|
|00004b10| 24 29 0d 28 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |$).(****|********|
|00004b20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004b30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004b40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004b50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 28 20 50 55 52 |********|**.( PUR|
|00004b60| 50 4f 53 45 3a 09 45 78 | 74 72 61 63 74 20 70 72 |POSE:.Ex|tract pr|
|00004b70| 65 66 69 78 20 54 24 20 | 66 72 6f 6d 20 4c 24 20 |efix T$ |from L$ |
|00004b80| 74 6f 20 74 68 65 20 65 | 6e 64 20 6f 66 20 4b 24 |to the e|nd of K$|
|00004b90| 0d 28 20 49 4e 50 55 54 | 53 3a 09 4b 24 20 3d 20 |.( INPUT|S:.K$ = |
|00004ba0| 70 72 65 66 69 78 2c 20 | 4c 24 20 3d 20 6c 69 6e |prefix, |L$ = lin|
|00004bb0| 65 0d 28 20 4f 55 54 50 | 55 54 53 3a 09 4b 24 20 |e.( OUTP|UTS:.K$ |
|00004bc0| 3d 20 70 72 65 66 69 78 | 2c 20 4c 24 20 3d 20 6c |= prefix|, L$ = l|
|00004bd0| 69 6e 65 2c 20 59 45 53 | 20 66 6c 61 67 20 69 66 |ine, YES| flag if|
|00004be0| 20 65 78 74 72 61 63 74 | 65 64 0d 28 20 41 46 46 | extract|ed.( AFF|
|00004bf0| 45 43 54 53 3a 09 4c 25 | 2c 20 54 25 2c 20 54 24 |ECTS:.L%|, T%, T$|
|00004c00| 0d 28 20 45 58 41 4d 50 | 4c 45 3a 09 28 20 4b 24 |.( EXAMP|LE:.( K$|
|00004c10| 20 63 6f 6e 74 61 69 6e | 73 20 49 46 20 59 45 53 | contain|s IF YES|
|00004c20| 20 0d 28 09 09 43 4f 50 | 59 49 4e 54 4f 20 4c 24 | .(..COP|YINTO L$|
|00004c30| 2c 4f 4e 50 41 4e 49 43 | 20 4a 55 4d 50 54 4f 20 |,ONPANIC| JUMPTO |
|00004c40| 48 45 52 45 0d 28 09 09 | 47 4f 53 55 42 20 47 45 |HERE.(..|GOSUB GE|
|00004c50| 54 5f 50 52 45 46 49 58 | 28 54 24 2c 4b 24 2c 4c |T_PREFIX|(T$,K$,L|
|00004c60| 24 29 0d 28 09 09 28 20 | 4b 24 20 6e 6f 77 20 63 |$).(..( |K$ now c|
|00004c70| 6f 6e 74 61 69 6e 73 20 | 49 46 20 59 45 53 20 4f |ontains |IF YES O|
|00004c80| 4e 50 41 4e 49 43 20 0d | 28 09 09 28 20 4c 24 20 |NPANIC .|(..( L$ |
|00004c90| 6e 6f 77 20 63 6f 6e 74 | 61 69 6e 73 20 4a 55 4d |now cont|ains JUM|
|00004ca0| 50 54 4f 20 48 45 52 45 | 0d 28 2a 2a 2a 2a 2a 2a |PTO HERE|.(******|
|00004cb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004cc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004cd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004ce0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004cf0| 0d 4c 45 4e 47 54 48 20 | 54 25 2c 54 24 0d 49 4e |.LENGTH |T%,T$.IN|
|00004d00| 53 54 52 20 4c 25 2c 4c | 24 2c 31 2c 54 24 0d 54 |STR L%,L|$,1,T$.T|
|00004d10| 45 53 54 20 4c 25 20 3d | 20 31 0d 49 46 20 4e 4f |EST L% =| 1.IF NO|
|00004d20| 20 52 45 54 55 52 4e 0d | 43 4f 4e 43 41 54 20 4b | RETURN.|CONCAT K|
|00004d30| 24 2c 54 24 0d 4c 45 4e | 47 54 48 20 4c 25 2c 4c |$,T$.LEN|GTH L%,L|
|00004d40| 24 0d 53 55 42 54 52 41 | 43 54 20 4c 25 2c 54 25 |$.SUBTRA|CT L%,T%|
|00004d50| 0d 52 49 47 48 54 24 20 | 4c 24 2c 4c 25 2c 4c 24 |.RIGHT$ |L$,L%,L$|
|00004d60| 0d 52 45 54 55 52 4e 0d | 0d 3a 57 52 49 54 45 32 |.RETURN.|.:WRITE2|
|00004d70| 28 4b 24 2c 4c 24 29 0d | 28 2a 2a 2a 2a 2a 2a 2a |(K$,L$).|(*******|
|00004d80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004d90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004da0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004db0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00004dc0| 28 20 50 55 52 50 4f 53 | 45 3a 09 57 72 69 74 65 |( PURPOS|E:.Write|
|00004dd0| 20 6f 75 74 70 75 74 0d | 28 20 49 4e 50 55 54 53 | output.|( INPUTS|
|00004de0| 3a 09 4b 24 20 3d 20 70 | 72 65 66 69 78 2c 20 4c |:.K$ = p|refix, L|
|00004df0| 24 20 3d 20 6c 69 6e 65 | 0d 28 20 4f 55 54 50 55 |$ = line|.( OUTPU|
|00004e00| 54 53 3a 09 45 25 0d 28 | 20 41 46 46 45 43 54 53 |TS:.E%.(| AFFECTS|
|00004e10| 3a 09 4c 25 2c 54 25 0d | 28 2a 2a 2a 2a 2a 2a 2a |:.L%,T%.|(*******|
|00004e20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004e30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004e40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004e50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00004e60| 4c 45 4e 47 54 48 20 54 | 25 2c 4b 24 0d 4c 45 4e |LENGTH T|%,K$.LEN|
|00004e70| 47 54 48 20 4c 25 2c 4c | 24 0d 41 44 44 20 54 25 |GTH L%,L|$.ADD T%|
|00004e80| 2c 4c 25 0d 54 45 53 54 | 20 54 25 20 3e 20 37 39 |,L%.TEST| T% > 79|
|00004e90| 0d 49 46 20 59 45 53 20 | 41 44 44 20 45 25 2c 31 |.IF YES |ADD E%,1|
|00004ea0| 0d 55 53 45 52 57 52 49 | 54 45 20 32 2c 4b 24 0d |.USERWRI|TE 2,K$.|
|00004eb0| 55 53 45 52 57 52 49 54 | 45 20 32 2c 4c 24 0d 55 |USERWRIT|E 2,L$.U|
|00004ec0| 53 45 52 57 52 43 52 20 | 32 0d 52 45 54 55 52 4e |SERWRCR |2.RETURN|
|00004ed0| 0d 0d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f00| 00 00 01 00 00 00 07 60 | 00 00 06 60 00 00 01 08 |.......`|...`....|
|00004f10| 6c 2c 20 70 6c 65 61 73 | 65 20 71 75 69 74 20 61 |l, pleas|e quit a|
|00004f20| 6e 64 20 74 72 79 20 61 | 67 61 69 6e 2e 28 5e 33 |nd try a|gain.(^3|
|00004f30| 12 46 69 78 20 52 52 20 | 39 2e 34 20 2d 3e 20 31 |.Fix RR |9.4 -> 1|
|00004f40| 30 2e 33 00 02 00 00 00 | 54 45 58 54 4d 45 44 54 |0.3.....|TEXTMEDT|
|00004f50| 00 00 54 45 58 54 4d 45 | 44 54 00 00 00 00 00 00 |..TEXTME|DT......|
|00004f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f70| 00 00 9d b3 fd 37 00 00 | 4e 52 00 00 08 68 61 6c |.....7..|NR...hal|
|00004f80| 73 65 00 00 00 04 03 53 | 65 74 00 00 00 22 21 4e |se.....S|et..."!N|
|00004f90| 6f 20 74 65 6d 70 6c 61 | 74 65 20 65 78 69 73 74 |o templa|te exist|
|00004fa0| 73 20 66 6f 72 20 74 68 | 69 73 20 74 79 70 65 2e |s for th|is type.|
|00004fb0| 00 00 00 19 18 50 61 73 | 63 61 6c 20 73 74 72 69 |.....Pas|cal stri|
|00004fc0| 6e 67 73 20 74 6f 6f 20 | 6c 6f 6e 67 2e 00 00 00 |ngs too |long....|
|00004fd0| 12 11 49 6e 76 61 6c 69 | 64 20 48 65 78 20 62 79 |..Invali|d Hex by|
|00004fe0| 74 65 3a 00 00 00 12 11 | 49 6e 76 61 6c 69 64 20 |te:.....|Invalid |
|00004ff0| 48 65 78 20 77 6f 72 64 | 3a 00 00 00 14 13 49 6e |Hex word|:.....In|
|00005000| 00 00 00 1b 00 5c 00 34 | 01 02 01 c4 00 01 01 00 |.....\.4|........|
|00005010| 00 00 00 00 00 00 03 e8 | 06 49 6e 74 72 6f c9 00 |........|.Intro..|
|00005020| 00 00 80 00 17 d4 00 00 | bf af 00 01 b7 ff 80 06 |........|........|
|00005030| ef b7 c0 03 f7 3a e0 07 | d7 fd 60 05 df fb b0 0f |.....:..|..`.....|
|00005040| a6 7e b0 07 c3 25 38 1d | a0 01 f8 17 80 00 d8 0f |.~...%8.|........|
|00005050| 80 00 fc 3f ba 2f 6c 1b | bd dc 88 3b 56 6a 4c 19 |...?./l.|...;VjL.|
|00005060| 0a 1d 4c 3c 82 40 54 0c | c6 40 bc 07 34 2e 3c 0f |..L<.@T.|.@..4.<.|
|00005070| 03 40 f4 05 ef fb fa 02 | fb ef d0 00 fc 1f a0 00 |.@......|........|
|00005080| ff ff 80 00 7f 7f 80 00 | 7f fe 70 00 5f fc 4e 00 |........|..p._.N.|
|00005090| cf f8 61 07 83 e0 60 18 | 80 00 40 20 c0 00 c0 00 |..a...`.|..@ ....|
|000050a0| 60 03 00 00 00 00 1e 00 | 4a 00 50 01 2c 01 9c 00 |`.......|J.P.,...|
|000050b0| 01 01 00 00 00 00 00 00 | 00 03 e9 09 50 72 6f 62 |........|....Prob|
|000050c0| 6c 65 6d 73 c9 00 00 00 | 80 00 01 80 00 00 03 c0 |lems....|........|
|000050d0| 00 00 03 c0 00 00 06 60 | 00 00 06 60 00 00 0c 30 |.......`|...`...0|
|000050e0| 00 00 0c 30 00 00 18 18 | 00 00 19 98 00 00 33 cc |...0....|......3.|
|000050f0| 00 00 33 cc 00 00 63 c6 | 00 00 63 c6 00 00 c3 c3 |..3...c.|..c.....|
|00005100| 00 00 c3 c3 00 01 83 c1 | 80 01 83 c1 80 03 03 c0 |........|........|
|00005110| c0 03 03 c0 c0 06 03 c0 | 60 06 01 80 60 0c 01 80 |........|`...`...|
|00005120| 30 0c 00 00 30 18 00 00 | 18 18 01 80 18 30 03 c0 |0...0...|.....0..|
|00005130| 0c 30 03 c0 0c 60 01 80 | 06 60 00 00 06 c0 00 00 |.0...`..|.`......|
|00005140| 03 ff ff ff ff 7f ff ff | fe 00 00 00 78 00 2a 00 |........|....x.*.|
|00005150| 04 00 2a 01 fc 00 2d 00 | 19 00 2d 01 f1 00 2e 01 |..*...-.|..-.....|
|00005160| f1 00 2e 01 f2 00 41 01 | f2 00 41 01 f6 00 42 01 |......A.|..A...B.|
|00005170| f6 00 42 01 f7 01 45 00 | 19 01 45 00 1a 01 46 00 |..B...E.|..E...F.|
|00005180| 1a 01 46 00 1e 01 52 00 | 04 01 52 00 1e 01 52 01 |..F...R.|..R...R.|
|00005190| f7 01 52 01 fc 00 9c 01 | 02 00 9c 01 4e 00 9b 01 |..R.....|....N...|
|000051a0| 4e 00 9b 01 4f 00 9c 01 | 02 00 9c 01 4e 07 43 6f |N...O...|....N.Co|
|000051b0| 6d 70 69 6c 65 54 45 58 | 54 00 00 01 04 00 00 12 |mpileTEX|T.......|
|000051c0| 46 69 78 20 52 00 00 00 | 09 00 09 06 4d 6f 6e 61 |Fix R...|....Mona|
|000051d0| 63 6f 00 00 00 04 00 05 | 00 08 00 00 01 56 00 09 |co......|.....V..|
|000051e0| 00 00 00 00 00 78 00 08 | 00 8c 00 44 04 02 4f 4b |.....x..|...D..OK|
|000051f0| 00 00 00 00 00 78 00 a0 | 00 8c 00 dc 04 06 43 61 |.....x..|......Ca|
|00005200| 6e 63 65 6c 00 00 00 00 | 00 08 00 08 00 18 01 88 |ncel....|........|
|00005210| 08 31 55 70 64 61 74 65 | 20 52 65 64 20 52 79 64 |.1Update| Red Ryd|
|00005220| 65 72 20 39 2e 58 20 50 | 52 4f 43 73 20 66 6f 72 |er 9.X P|ROCs for|
|00005230| 20 31 30 2e 33 20 2d 20 | 76 65 72 73 69 6f 6e 20 | 10.3 - |version |
|00005240| 58 2e 58 0c 00 00 00 00 | 00 20 00 08 00 30 01 88 |X.X.....|. ...0..|
|00005250| 08 2f 4d 61 79 20 62 65 | 20 66 72 65 65 6c 79 20 |./May be| freely |
|00005260| 75 73 65 64 20 66 6f 72 | 20 6e 6f 6e 2d 63 6f 6d |used for| non-com|
|00005270| 6d 65 72 63 69 61 6c 20 | 70 75 72 70 6f 73 65 73 |mercial |purposes|
|00005280| 2e c5 00 00 00 00 00 38 | 00 08 00 48 01 88 08 33 |.......8|...H...3|
|00005290| 43 4f 50 59 52 49 47 48 | 54 20 31 39 38 37 20 62 |COPYRIGH|T 1987 b|
|000052a0| 79 20 44 61 76 69 64 20 | 42 6c 61 63 6b 2c 20 61 |y David |Black, a|
|000052b0| 6c 6c 20 72 69 67 68 74 | 73 20 72 65 73 65 72 76 |ll right|s reserv|
|000052c0| 65 64 2e 00 00 00 00 00 | 00 58 00 08 00 68 00 70 |ed......|.X...h.p|
|000052d0| 08 0f 4c 69 6d 69 74 20 | 6c 61 62 65 6c 73 20 74 |..Limit |labels t|
|000052e0| 6f 18 00 00 00 00 00 58 | 00 70 00 68 00 90 10 02 |o......X|.p.h....|
|000052f0| 32 30 00 00 00 00 00 58 | 00 90 00 68 00 e0 08 0b |20.....X|...h....|
|00005300| 63 68 61 72 61 63 74 65 | 72 73 2e 01 00 00 00 00 |characte|rs......|
|00005310| 00 50 01 20 00 70 01 40 | 20 02 03 e8 00 00 00 00 |.P. .p.@| .......|
|00005320| 00 78 01 10 00 88 01 58 | 08 0a 41 75 73 74 69 6e |.x.....X|..Austin|
|00005330| 2c 20 54 78 00 00 01 e4 | 00 0d 00 00 00 00 00 c0 |, Tx....|........|
|00005340| 00 08 00 d0 00 20 04 01 | 43 00 00 00 00 00 00 a8 |..... ..|C.......|
|00005350| 00 08 00 b8 00 20 04 01 | 45 00 00 00 00 00 00 a8 |..... ..|E.......|
|00005360| 00 20 00 b8 00 f8 08 1f | 78 69 74 20 74 6f 20 65 |. ......|xit to e|
|00005370| 64 69 74 6f 72 20 61 6e | 64 20 66 69 78 20 70 72 |ditor an|d fix pr|
|00005380| 6f 62 6c 65 6d 73 c9 c0 | 00 00 00 00 00 c0 00 20 |oblems..|....... |
|00005390| 00 d0 00 f8 08 1b 6f 6e | 74 69 6e 75 65 20 69 6e |......on|tinue in|
|000053a0| 73 70 69 74 65 20 6f 66 | 20 70 72 6f 62 6c 65 6d |spite of| problem|
|000053b0| 73 08 00 00 00 00 00 08 | 00 08 00 18 00 20 08 02 |s.......|..... ..|
|000053c0| 4e 6f 00 00 00 00 00 30 | 00 08 00 40 00 20 08 02 |No.....0|...@. ..|
|000053d0| 4e 6f 00 00 00 00 00 58 | 00 08 00 68 00 20 08 02 |No.....X|...h. ..|
|000053e0| 4e 6f 00 00 00 00 00 80 | 00 08 00 90 00 20 08 02 |No......|..... ..|
|000053f0| 4e 6f 00 00 00 00 00 08 | 00 20 00 28 01 38 08 47 |No......|. .(.8.G|
|00005400| 63 61 73 65 73 20 6f 66 | 20 41 4c 45 52 54 2c 20 |cases of| ALERT, |
|00005410| 4f 4e 50 41 4e 49 43 20 | 6f 72 20 49 46 20 63 6d |ONPANIC |or IF cm|
|00005420| 64 27 73 20 77 69 74 68 | 20 70 72 6f 62 6c 65 6d |d's with| problem|
|00005430| 73 20 69 6e 20 63 6f 6d | 6d 61 6e 64 20 70 61 72 |s in com|mand par|
|00005440| 61 6d 65 74 65 72 2e 08 | 00 00 00 00 00 30 00 20 |ameter..|.....0. |
|00005450| 00 50 01 18 08 33 63 61 | 73 65 73 20 6f 66 20 4a |.P...3ca|ses of J|
|00005460| 55 4d 50 54 4f 20 6c 61 | 62 65 6c 73 20 67 72 65 |UMPTO la|bels gre|
|00005470| 61 74 65 72 20 74 68 61 | 6e 20 20 20 20 20 63 68 |ater tha|n     ch|
|00005480| 61 72 61 63 74 65 72 73 | 2e 00 00 00 00 00 00 58 |aracters|.......X|
|00005490| 00 20 00 78 01 38 08 39 | 63 61 73 65 73 20 6f 66 |. .x.8.9|cases of|
|000054a0| 20 4d 45 4e 55 44 4f 45 | 53 20 63 6f 6d 6d 61 6e | MENUDOE|S comman|
|000054b0| 64 73 20 74 68 61 74 20 | 49 20 61 6d 20 75 6e 61 |ds that |I am una|
|000054c0| 62 6c 65 20 74 6f 20 74 | 72 61 6e 73 6c 61 74 65 |ble to t|ranslate|
|000054d0| 2e 00 00 00 00 00 00 80 | 00 20 00 a0 01 38 08 1b |........|. ...8..|
|000054e0| 6c 69 6e 65 73 20 74 68 | 61 74 20 65 78 63 65 65 |lines th|at excee|
|000054f0| 64 20 37 39 20 63 68 61 | 72 73 2e 00 00 00 00 00 |d 79 cha|rs......|
|00005500| 00 b0 01 18 00 d0 01 38 | 20 02 03 e9 00 00 00 00 |.......8| .......|
|00005510| 00 30 01 18 00 40 01 38 | 08 02 32 30 00 00 00 86 |.0...@.8|..20....|
|00005520| 0a c8 62 00 ff ea 4a ad | ff 2a 67 08 20 6d 00 00 |..b...J.|.*g. m..|
|00005530| 00 3a 00 00 00 00 00 00 | 00 00 00 00 00 2e 00 00 |.:......|........|
|00005540| 00 00 00 00 00 00 03 17 | 00 22 00 00 00 00 00 00 |........|."......|
|00005550| 00 00 03 18 00 16 00 00 | 00 00 00 00 00 00 03 19 |........|........|
|00005560| 00 0a 00 00 00 00 00 00 | 00 00 06 00 00 fe 00 00 |........|........|
|00005570| 00 00 00 00 00 00 03 0b | 01 f2 00 00 00 00 00 00 |........|........|
|00005580| 00 00 06 00 00 e6 00 00 | 00 00 00 00 00 00 06 00 |........|........|
|00005590| 00 da 00 00 00 00 00 00 | 00 00 06 00 00 ce 00 00 |........|........|
|000055a0| 00 00 00 00 00 00 00 00 | 00 b6 0e 0a 80 01 80 01 |........|........|
|000055b0| 7f ff 7f ff 00 00 00 36 | 00 00 00 0c 00 00 00 00 |.......6|........|
|000055c0| 00 00 00 00 00 00 00 18 | 00 00 00 00 00 00 00 00 |........|........|
|000055d0| 06 00 00 0c 00 00 00 00 | 00 00 00 00 06 00 00 06 |........|........|
|000055e0| 00 00 00 00 00 00 00 00 | 03 16 00 12 00 00 00 00 |........|........|
|000055f0| 00 00 00 00 03 17 00 6b | 00 00 00 00 00 00 00 00 |.......k|........|
|00005600| 03 18 00 12 00 00 00 00 | 00 00 00 00 03 19 00 ff |........|........|
|00005610| 00 00 00 00 00 00 00 00 | 06 00 00 12 00 00 00 00 |........|........|
|00005620| 00 00 00 00 06 00 00 ff | 00 00 00 00 00 00 00 00 |........|........|
|00005630| 06 00 00 12 00 00 00 00 | 00 00 00 00 06 00 00 ff |........|........|
|00005640| 00 00 00 00 00 00 00 00 | 06 00 00 12 00 00 00 00 |........|........|
|00005650| 00 00 00 00 03 0b 00 ff | 00 00 00 00 00 00 00 00 |........|........|
|00005660| 00 00 01 00 00 00 07 60 | 00 00 06 60 00 00 01 08 |.......`|...`....|
|00005670| 00 01 f7 7c 02 36 00 00 | 00 1c 00 da 00 06 44 4c |...|.6..|......DL|
|00005680| 4f 47 00 01 00 3a 44 49 | 54 4c 00 01 00 52 49 43 |OG...:DI|TL...RIC|
|00005690| 4f 4e 00 01 00 6a 45 50 | 52 52 00 00 00 82 45 46 |ON...jEP|RR....EF|
|000056a0| 4e 54 00 00 00 8e 45 54 | 41 42 00 00 00 9a 53 48 |NT....ET|AB....SH|
|000056b0| 45 4c 00 01 00 a6 03 e8 | 00 16 00 00 00 00 00 00 |EL......|........|
|000056c0| 00 00 03 e9 00 0c 00 00 | 00 a3 00 00 00 00 03 e8 |........|........|
|000056d0| 00 1d 00 00 01 da 00 00 | 00 00 03 e9 00 24 00 00 |........|.....$..|
|000056e0| 03 34 00 00 00 00 03 e8 | 00 00 04 00 00 1f 00 01 |.4......|........|
|000056f0| f7 38 03 e9 ff ff 20 00 | 00 c5 00 00 00 00 03 ea |.8.... .|........|
|00005700| ff ff 00 00 01 49 00 00 | 00 00 03 eb ff ff 00 00 |.....I..|........|
|00005710| 01 c5 00 00 00 00 03 ec | ff ff 00 00 01 d2 00 00 |........|........|
|00005720| 00 00 03 e8 ff ff 00 00 | 05 1c 00 00 00 00 03 e9 |........|........|
|00005730| ff ff 00 00 05 a6 00 01 | f6 f4 0b 44 61 76 69 64 |........|...David|
|00005740| 20 42 6c 61 63 6b 09 50 | 72 6f 62 6c 65 6d 73 c9 | Black.P|roblems.|
|00005750| 06 49 6e 74 72 6f c9 06 | 49 6e 74 72 6f c9 09 50 |.Intro..|Intro..P|
|00005760| 72 6f 62 6c 65 6d 73 c9 | 00 00 00 00 00 00 00 00 |roblems.|........|
|00005770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+